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Computer Notes is continually 
seeking quality manuscripts on 
applications, troubleshooting, interfacing, 
software, book reviews, fiction, cartoons 
and a variety of other computer-related topics. 

Articles should be a minimum of 800 words and 
a maximum of 3600 words long (about 15 pages 
typed double-space). Honorariums are based on 
an article's technical quality and its suitability for 
C.N'.s readership. Payment will range from 50<P to 
$1 per typeset magazine column inch for all text 
and programs. No payment will be made for illus- 
trations. All articles are subject to editing to fit 
space requirements and content needs of our 
readership. Payment for articles which are accepted 
will be sent upon publication. 

Articles submitted to C.N. should be typed, 
double-space, with the author's name, address and 
the date in the upper left-hand corner of each 
numbered page. Authors should also include a one- 
sentence autobiographical statement about their 
job, professional title, previous electronic and/or 
computer expereince under the article's title. Authors 
should retain a copy of each article submitted. 

All illustrations, diagrams, schematics and other 
graphic material should be submitted in black ink 
on smooth white paper. Prints and PMT's are 
acceptable. No pencil drawings unless properly 
"fixed" No halftone or wash drawings. 




Whenever possible, art should be done to fin- 
ished size. Complicated drawings should be sub- 
mitted oversize for reduction to format by C.N. 

All artwork should be mailed flat, never folded. 
Unless requested, graphics are not returned. Sketches, 
roughs and "idea" drawings are generally not used. 

Photos, charts, programs and figures should be 
clearly labelled and referred to by number within 
the text of the manuscript. 

Only clear, glossy black and white photos (no 
Polaroid pictures) will be accepted. Photos should 
be taken with uniform lighting and sharp focus. 

Program listings should be recorded with the 
darkest ribbon possible on blank white paper. 
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ALTAIR TIMESHARING BASIC 
CHALLENGES LARGE COMPUTER SYSTEMS 



By Susan B. Dixon 



Altair Timesharing BASIC for 
microcomputers is a unique and 
dynamic package with powerful 
capabilities that challenge a field 
dominated by larger, more costly 
computers. 

Altair Timesharing BASIC and 
Altair Timesharing Disk BASIC are 
magnified versions of the powerful and 
efficient Altair Extended BASIC. Each 
version includes increased capabilities to 
accommodate as many as eight different 
programs running simultaneously and 
independently within the system. 



Instantaneous Keyboard Response 

I nput and output are interrupt driven 
and fully buffered to provide virtually 
instantaneous keyboard response even 
when the system supports the maximum 
number of users. The output buffers 
empty more quickly than they are filled, 
so it will appear the CPU is dedicated to 
each individual terminal. 
High Speed Systematic Job Rotation 

Operating within a highly efficient 
round-robin system, the CPU suspends 
operation of a job currently being 
executed, stores the address of the next 
instruction and moves to the next job. 
Each job is served a hundred milli- 
second slice of its program. 
Partitioned Memory Locations 

Established as a Fixed Partition 
System, each job is confined to a unique 
area of memory. Users may then access 
only their individual jobs, not the system 
or other jobs. This protects jobs from 
alteration or destruction. The size of the 
memory area must be established with a 
minimum Of 1024 bytes during 
initialization. Memory areas may be of 
different sizes, depending on need. Each 
program area contains: 

— BASIC program text 

—Variable and string space 

—Work space 

—Approximately 300 bytes of the 
timesharing system 
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Typical Altair Timesharing BASIC system, including Altair B-100 CRTs, Altair 
Floppy Disks and Altair 8800b Turnkey model, Altair Timesharing BASIC 
supports up to eight users. 



I/O Device Support 

A variety of input devices can be 
linked to Altair Timesharing BASIC and 
Altair Timesharing Disk BASIC. This 
flexibility permits the use of CRT's for 
high-speed data manipulations and 
Teletypes™ and hard copy terminals 
when hardcopy output is required. 

Altair Timesharing Disk BASIC 
facilitates the listing of programs on a 
line printer. Programs await listing in a 
queue to prevent mixing different jobs. 
Users receive a message if the line 
printer is unavailable. 

Versatile Program Storage and 
Loading Capabilities 

Altair Timesharing Disk BASIC 
provides rapid loading and program 
retrieval since all programs reside on a 
floppy disk. Read and modify passwords 
may be specified for program fixes to 
limit access by other users. 

Altair Timesharing BASIC can be 
loaded from paper tape or audio 
cassette. Programs may be stored for 
later use on paper tape. 
Other Features 

—Control of a specific job may be 
transferred from one terminal to 
another with a single command. 

—Various control characters allow 
suspension and resumption of each 
job without loss of data. 



—Extensive diagnostics for program 
debugging. 

—Automatic line numbering. 

— Both versions of Altair Time 
Sharing BASIC furnish line- 
oriented text editor with line and 
character manipulation 
capabilities. 

Educational Applications 

A single Altair 8800b loaded with 
either version of Timesharing BASIC can 
be utilized by several students 
performing independent operations. One 
student practices program development, 
another makes use of Timesharing 
BASIC'S extensive diagnostics to debug a 
program while several other students 
calculate complicated equations. AH 
program activity occurs simultaneously 
with no discernable response delay. 

Computer-oriented education need 
not be limited to programming classes. 
An Altair Timesharing System is a 
valuable visual tool in science, math and 
engineering classes and as an 
introduction to the various aspects of 
computer technology to solve real world 
problems. 

An Altair Timesharing System 
stimulates interest and provides a 

vehicle for discussion for the younger 

CONTINUED 
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New Turnkey Version 

Features AUTO-START 



By Dar Scott 



Those of you who have been asking 
for a Turnkey version of the Altair 8800b 
computer may now stand up and cheer, 
because the Turnkey version of "the 
mainframe of the 70's" is now available. 

The Turnkey version incorporates all 
the good quality construction and good 
looks of the Altair 8800b computer. But 
just because the Turnkey doesn't have a 
front panel or a front panel interface 
board doesn't mean it's merely a 
stripped-down version of the Altair 8800b 
computer. It has some unique features, 
including the new Turnkey Module 
board. With this board all the functional 
units of the computer — the CPU, RAM 
and PROM memory sense switches and 
serial I/O — can be contained on just two 
circuit boards, which are supplied in the 
standard Turnkey version package. 

But the most important advantage of 
the Turnkey Module is that it contains 
AUTO-START, which allows the 
computer to begin executing a program 
in PROM as soon as the power is turned 
on or the START is actuated. 

The Turnkey Module includes the 
following functional parts: 

— AUTO-START 

— IK bytes each of RAM and PROM 

memory 

— Serial I/O Channel 

— Control for the front panel 

— Miscellaneous control and 

housekeeping logic 
The AUTO-START feature is the key 
to the Turnkey version's ease of use. 
When the power is turned on or when the 
START switch is actuated, the computer 
is forced to begin executing the 
instruction at the memory location 
specified by switches on the Turnkey 
Module. This means that when the power 
goes on, the computer can be made to 
start a loader program or a monitor 
automatically without keying in a 
bootstrap loader from the front panel. 
Alternately, the computer can be made 
to start a custom applications program 
at start-up. This should appeal to users 
who want to build the computing power 
of an Altair 8800b into a lab instrument, 

TWO 



machine tool or some other dedicated 
application. 

The serial input/output channel is 
essentially half of a 2SIO board. With the 
addition of a jumper selection, the 
channel interface is compatible with 
TTY, RS-232 or TTL signals. This means 
that the Turnkey version can operate 
with almost any terminal or I/O 
arrangement with no interface 
equipment necessary. The I/O ports 
associated with the serial input/output 
channel can be assigned to any 128 I/O 
port pairs by switch selection. 

The IK RAM and the IK PROM can 
each be assigned to any IK block within 
the full Altair 8800b address space by 
switch selection. The PROM used is the 
1702A-a256-byte by 8-bit PROM. 1 A disk 
bootstrap loader PROM, a general 
purpose multi-boot loader PROM and a 
small monitor PROM are also available 
from MITS for use with the Turnkey 
version. 

The switches on the Turnkey version 
front panel are the POWER switch, 
which has a key lock for system security; 
START, which initializes the CPU and 
initiates the AUTO-START sequence; 
and RUN/STOP, which allows execution 
of a program to be stopped and started 



again. The indicators show that an I/O 
operation is in progress, a HALT state 
has been entered, interrupts are enabled 
or an interrupt is in progress. The lights 
and switches provide the minimum 
facilities to monitor and control system 
operation. 
CPU Board 

The CPU board is the standard Altair 
8800b CPU board. It consists of five 
major functional blocks: 

— 8080A CPU Chip 

— 8224 Clock Generator Chip 

— 8212 Status Latch 

— Drivers and Receivers 

— Power-On-Clear Circuit 

The CPU board is, in most respects, 
identical to the 8800b CPU board 
described in a previous Computer Notes 
article (see p. 1, 4-5 in July C/N). 
However, the Power-On-Clear Circuit is 
especially important in the Turnkey 
version because it generates a pulse to 
reset the system. The circuit is designed 
so that even short power outages 
generate a reliable Power-On-Clear 
pulse. The Turnkey Module uses this 
pulse to reset the CPU by pulling 
PRESET low. The CPU board extends 
this pulse to prevent the CPU from 
starting before the Power-On-f lear pulse 



ALTAIR 
TIMESHARING 
BASIC 

CONTINUED 

student. Children find it particularly 
fascinating to use a computer to solve 
arithemetic problems. 
Scientific and Engineering Uses 

Engineering firms and scientific labs 
currently using programmable 
calculators will benefit from the multi- 
purpose capabilities of a microcomputer 
for complex math routines and statistical 
manipulation. An Altair 8800B operating 
with Timesharing BASIC provides a 
number of individuals with access to 
graphic or tabular output in addition to 
the following mathematical functions: 
SIN, COS, TAN, LOG, SQR, SGN, ABS, 
INT and RND. 



Required Hardware 

The following hardware is needed to 
support both versions of Altair 
Timesharing BASIC. 

—Altair 8800 series mainframe and 

CPU 
—A minimum of 32K RAM 
—Vector Interrupt/ Real Time Clock 

board 
—Up to 4 2S 10 boards to interface 
terminals (no other types of 1/0 
boards can be supported). 
—Line printer (optional for Altair 

Timesharing Disk BASIC). 
The following products are optional 
for Altair Timesharing BASIC loading 
and required for Altair Timesharing 
Disk BASIC. 

—An Altair floppy disk drive and 

controller. 
— 88-PROM board. 
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is completely removed from all I/O and 
memory boards. 

The mother board for the Turnkey 
version of the Altair 8800b computer has 
18 usable slots. 
Power Supply 

The power supply for the Turnkey 
version is the same as that for the 
standard Altair 8800b computer. This 
power supply furnishes the following 
voltages at the indicated full load 
currents: 

8 volts at 18 amps 

+ 18 volts at 2 amps 

-18 volts at 2 amps 



NEW ALTAIR MINIDISK 

STORES OVER 71 K 



The miniaturization of mass storage 
is just one of the exciting features of the 
new Aitair Minidisk System. Designed to 
work with the Altair 8800b, the Minidisk 
has a storage capacity of over 71 K bytes 
per diskette with an access time of less 
than three seconds. 

Altair Minidisk BASIC, resides in the 
lower 20 K of memory and provides the 
disk utilization routines. Altair Minidisk 
BASIC includes the standard functions of 
BASIC, plus many extra file 
maintenance procedures that 
significantly increase programming 
power. The software driver for the 
Minidisk Read/Write functions is based 
on the hard sectoring format, which 
simplifies system configuration. 

The Altair 8800b interacts with the 



By Thomas Durston 

Minidisk Drive through two Minidisk 
Controller Cards that plug into the Altair 
Bus. All control, status and data 1/0 
signals are handled through three 1/0 
ports dedicated to the Minidisk 
Controller. To insure maximum life of 
the drive motor, a timer in the Controller 
turns the system off if the Minidisk is not 
accessed for five seconds. 

The Minidisk Drive Case contains a 
disk drive, power supply, line buffers and 
addressing circuitry. The Drive address 
is switch selectable. The selected 
address is displayed on the front panel 
for easy identification. Write protect is 
also a standard feature on the drive. 

Check with MITS or your local dealer 
for prices and availability. 

CONTINUED 




Altair system featuring SSOOb Turnkey Model, dual Altair Minidisks, LSI ADM-3 CRT 
and Q70 Line Printer. 
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NEW ALTAIR MINIDISK 

STORES OVER 71 K 
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88-MDS Altair Minidisk Controller 
Description Includes a set of 2 

Controller Boards and Interconnect 
Cables. Can control 1 to 4 Minidisk 
Drives. Similar in circuitry and 
operation to the Altair Floppy Disk 
Controller. First drive is included in 
MDS. Additional Drives are available as 
88-MDDR'S. 

Specifications 

Number of slots 
required in 8800 
bus: 2 

Number of ICs: 

TTL Logic: 57 

CMOS: 1 

Voltage Regulators: 2 

Interconnect 

Wiring: Insulation displacement cables 
and connectors 

I/O Addresses 

(Octal): 010, 011, 012 

Data Transfer 

Rate: 1 byte every 64 us 

Data Format: Hard Sectored (16 

sectors) 
Interrupt 

System: Interrupt at beginning of sector 
(Optional - not used for 
Altair Minidisk BASIC) 
Power 

Requirements: 1.4A @ 8V 
88-MDDR Altair Minidisk Drive 
Description Disk drive in case with 
power supply, Buffer and Address 
electronics. Includes Interconnect Cable 
and one blank Minidiskette. 

Specifications 

1. Data Capacity — Hard Sectored 
Format 

a) Per Minidiskette: 71,680 

Data Bytes 

b) Per Track: 2,048 Data 

Bytes 

c) Per Sector: 128 Data 

Bytes 



1 sec 
(min) 
50 ms 



2. Data Transfer Rate: 125,000 

Bits per 
second 

3. Access Time 

a) Disk Enable to READ 
or WRITE (Function of 

...■;./. motor start-up time): 

b) Track to track: 

c) Average Access Time 
(including motor 

start-up time): 1.85 sec 
3) Worst Case Access 

Time: 2.9 sec 

e) Worst Case Latency: 200 ms 
Functional Specifications 

1. Rotational Speed: 300 rpm (200 

ms/Rev.) 

2. Track Density: 48 tracks per inch 

3. Number of Tracks: 35 

4. Number of Sectors: 16 

5. Time Per Sector: 12.5 ms 
Software: Altair Minidisk Extended 
BASIC 

Software on a Write Protected 
Minidiskette is virtually identical to 
Altair Disk BASIC in operation and 
features. The manual includes Bootstrap 
Listing and READ/WRITE Drive Code. 
Be sure to specify the cassette tape or 
paper tape for Bootstrap Loader, if 
required. 

Programmed PROMS Available ($45 
each): 

1. MDBL PROM. Minidisk Bootstrap 
Loader on programmable read only 
memory IC to be used with 88-PMC 
PROM Memory Card at highest 256- 
byte block address. 

2. DRWT PROM. Floppy and Minidisk 
READ/WRITE Test PROM has the 
fundamental diagnostic tests for 
checking hardware operation. To be 
used with the 88-PMC at 3rd highest 
256-byte block address. 



ADD HARD COPY 
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TO YOUR SYSTESVS 

Two New ABtair Line Printers Available 




The Altair C700 calculates the most 
rapid way to print each line, 
eliminating unnecessary carriage 
returns and reducing wear. 



MITS introduces two new peripheral 
products-the C700 high-speed printer and 
the Q70 printer-to interface with the 
Altair 8800 series microcomputers. 

The Altair C700 is a high-speed serial 
character printer which prints up to 60 
characters per second. The printhead is 
a 5X7 dot matrix which prints the 64 
character subset of the ASCII font. 

The Altair Q70 is an upper and lower 
case/electric typewriter-quality printer 
specially designed and modified to 
interface with the Altair 8800 series. It 
prints 96 upper and lower case 
characters and symbols at 45 characters 
per second. 

The Q70 is ideal for business 
systems, word processing systems or 
any other application which requires 
high quality printout for letters, labels, 
documents, etc. 

Each printer operates in a highly 
efficient yet unique manner. The C700 



calculates the most rapid way to print 
each line so that unnecessary carriage 
returns are eliminated. 

The Q70 operates with a 'daisy 
wheel' system to rapidly print upper and 
lower case characters. The wheel spins 
for character location, and a hammer 
then forces the wheel against the ribbon, 
paper and platen. 

Both the C700 and Q70 provide other 
superior features for easy operation with 
minimal maintenance. Each printer is 
furnished with form tractors to 
accommodate forms up to 15 inches in 
width. An electronic Top of Form in the 
Q70 provides rapid positioning of each 
sheet. A manual Top of Form switch is 
also included. With the Q70, ribbon 
and/or wheel replacement is not an 
exasperating, messy task. The print 
wheel is easy to replace, and the ribbon is 
conveniently enclosed in a cartridge. 

CONTINUED 
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New Products 



MITS OFFERS TWO CRTs 



By Bennett Inkeles 



ADD HARD COPY 

CAPABILITIES 

TO YOUR SYSTEM 
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When set to print less than. 132 
centered character lines, the C700 has 
increased throughput, since the print 
head returns to the right or left margin. 
This special feature results in minimal 
wear since parts motion is reduced to an 
absolute minimum. A circuit which 
allows power to be decreased when the 
printer is inactive further reduces wear. 
Both printers are easily integrated 
into any Altair 8800 computer system. 
Each comes with its own special 
interface card which is plugged into the 
Altair bus. Ribbon cables and connectors 
complete the interface by connecting the 
printer to the computer via the interface 
board. 

Check with MITS or your local dealer 
for prices and availability of the Q70 and 
C700. 

Altair 88-Q70 Specificiations 
Print speed and format: 45 characters 
per second; 
Fu|l characters 
of electric type- 
writer quality. 
Forms: Single sheets or continuous 
multipart forms with or without 
sprocket holes. Maximum width 
of 15 inches. 



Font: 96 character positions on 'daisy' 
print wheel; wide variety of fonts 
available in 10 and 12 pitch. 
Prestige Elite comes with each 
unit. 
Format: Horizontally — 132 characters 
and proportional spacing in 
increments of 1/120". 
Vertically — spacing in 
increments of 1 /48" up or down. 
Slew rate at 5" per second. 
Altair C700 Specifications 
Printing method: Character serial, 
impact, bidirectional. 
Printing rate: 60 characters per second, 
maximum; 26 132-column 
lines per minute. 
Transmission rate: 75,000 characters per 
second (bit-parallel, 
character-serial). 
Indicators/Switches: On/Off, Select/ 
Deselect, Paper/ 
Out Indicator. 
Internal controls: Automatic motor 
control, paper run- 
away inhibitor, auto 
line feed after 
carriage return. 
Paper feed: Tractor (pin-feed) up to 439 
mm (17.3"). Up to 5-part 
forms can be handled. Any 
sprocket-fed continuous 
forms may be handled. 
Dimensions: 178 mm high, 457 mm deep, 
622 mm wide. 

(7"x28"x24.5") 
Weight: 27 kg (60 lbs.) 
Electrical requirements: 115/230 VAC 
+ 10%, 50/60 
Hz 



MITS now offers the LSI ADM-3 and 
the Altair B-100 CRT terminals for 
reliable communication in any Altair 
computer system. Such user benefits as 
fast, quiet operation and fewer 
mechanical problems are just some of 
the reasons to consider CRT 
implementation. 

Both terminals display 24 lines of 80 
characters on a non-glare screen and 
interface at RS-232 and 20 mA current 
loop levels. Each CRT includes the 
standard 64 ASCII character set and 
switch selectable transmission rates 
from 75 to 19,200 baud. 

The LSI ADM-3 and the Altair B-100 
also include many unique features 
suitable for a variety of system 
applications. The ADM-3's RS-232 
extension connector permits interfacing 
to asynchronous serial ASCII printers so 
that permanent copies can be easily 
retained. 

The Altair B-100 includes quad- 
directional cursor control with carriage 
return and line feed, an addressable 
cursor for direct positioning by line and 
column, 11-key numeric pad with 
decimal point for simple entry of 
numeric data, erase mode for cursor to 
end of line and cursor to end of memory 
erase. 



Altair 16K Memory 
Board Now Available 

The new Altair memory module 
provides 16K bytes of dynamic Random 
Access Memory. By implementing low 
power and fast access dynamic memory 
ICs, the Altair 88-16MCD runs at a 
maximum power dissipation of three 
watts and a maximum time of 350 
nanoseconds. 

Crystal-controlled logic timing 
eliminates the need for on-board one-shot 
multivibrator circuitry. This results in 
continuous operation without wait states 
for greater reliability. 

Bus strips provide isolation between 
power and signal lines for maximum 
noise suppression. Address selection is 
switch selectable in 4K blocks. Each 
board requires one slot on the Altair 8800 
bus. 

CVN June, 1977 
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The Altair B-100 CRT provides fast, quiet and efficient operation for any 
Altair computer system. 



Publications Offer 

Variety of Approaches 



The April issue of COMPUTER 
NOTES featured an article entitled, 
"Publications Provide Novice With 
Essential Information," (Page 10 May 
CN), surveyed some of the current 
computer literature. We regret that the 
following publications from People's 
Computer Company were not included. 



PEOPLE'S COMPUTER 

COMPANY is a hardware/software 
applications-oriented tabloid for the 
novice as well as the experienced 
computer user. Information is presented 
in an informal style with many useful 
annotations. PCC also acts as a sounding 
board for novel ideas proposing changes 
in computer technology. 

The format of Dr. DOBB'S 
JOURNAL OF COMPUTER CALIS- 
THENICS & ORTHODONTIA is similar 



to that of PCC, but information is aimed 
at advanced computer users. Software 
articles, such as games, modifications 
and unique software systems, make up 
the bulk of DDJ. Product releases and 
reader responses round out this 
informative magazine. 

COMPUTER MUSIC JOURNAL 
offers a comprehensive and highly 
technical approach to high quality 
musical applications of digital 
electronics. This journal is best suited for 
those who utilize theoretical information 
for designing computer music systems. 

Subscriptions and additional 
information about these publications can 
be obtained from: 

People's Computer Company 

P.O. Box E 

Menlo Park, CA 94025 
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SEVEN 



Graphics Display 

Acids Versatility to Altai r System 



By Dave Antreasian 



The graphics capability of a CRT 
plays an important role in every' 
computer system. The graphics mode is 
especially useful for displaying graphs or 
curves quickly in real-time and is a 
"must" for such computer games as 
Ping-Pong. 

The following program was written 
for these applications. Although a 
hardware restriction limits its 
versatility, the program is a helpful 
model for any system display. The 
hardware restriction refers to cursor 
control incompatibility with terminals 
that include this feature. 

This program was written for a 
Beehive 100 terminal, in which the cursor 
is positioned by sending the following 
four-byte code to the terminal: 

Byte 1. Escape Sequence Code 

2. Cursor Address Function Code 

3. Line Number 

4. Column Number 

*32 Represents line or column 1; 
33 Represents line or column 2, etc. 

This four byte sequence positions the 
cursor, and the next byte received prints 
the desired character. Notice that 
positioning the cursor beyond either field 
limit causes the cursor to disappear or 
scroll the display. If the display is 
scrolled, the program cannot blank the 
screen properly, because the first 
"home" reference point will be lost. 

The program is written in Altair 
BASIC with a user-called Machine 
Language display routine at line 5000. 
Although it would be more efficient in 
machine language, its versatility would 
be greatly reduced in the translation. 

The program accesses an Analog-to- 
Digital Converter card (88-ADC) which 
reads eight channels of information and 
thus defines four points on the display. A 
fixed background "field" is also 
displayed. 

By substituting another subroutine 
for the one at line 7100, Altair BASIC can 
plot any number of desired points simply 
by writing each point into the "Data 
Block," which starts at location 8064. (Be 
sure to limit memory size to 8000 when 



(ASCII) 
Octal Code 


(ASCII) 
Decimal Code 


33 


27 


50 


40 


40-64 


*32-54 


40-157 


*32-lll 



initializing BASIC.) Each point in the 
data block is specified by three 
parameters: 

1. the first byte is the line number 
(ASCI!) 

2. The second byte is the column 
number (ASCII) 

3. The third byte is the desired 
character (ASCII) 

Notice that the data block is 
composed of two sections. The first 
section (bytes 8064 to 8075) is reserved 
for "moving" data points, and the second 
section contains "fixed" points. The 
sections are separated by a data byte = 
255. Upon recognition of the (255) code, 
the display program jumps back to the 
BASIC program, so the "fixed" field is 
displayed only once. Then only the 
"moving" field is refreshed to the 
display. This significantly reduces the 
display writing time. 
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Machine Code Portion of 










Display Routine 
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111 023 Call Status 


CK 4 \ Cursor 


as p 


JKE £02 7 , £11 :PUKE £02£ , 19 :POKE £029 , 35 




112 315 


/ Address 


30 P 


JKE. £030 , 3 :POKL £031 , 62 .POKE 8032 , 3 




113 [166] 

114 L037J 


1 


32 '" 


JKE 8033 , 185 :POKE £034 ,. 194 :POKE £035 , £4 




\ 


34 P 


JKE £036 , 31 :POKE £037 , 205 :POKE £03£ , 11£ 




115 076 


\ 


36 P 


JKE 8039 , 31 :POK'E £040 , 62 :°OKE £041 , £7 




116 106 


1 


36 POKE 804£ , 211 sTWlUZ X043 , 19 SPUES £044 , £05 




117 323 


1 


40 P 


JKE 8045 , lit : c OKE £046 , 31 :PGKE £047 , 6£ 




120 023 

121 001 LXI (B,C) 

122 [000] 

123 LOOOJ 


J 


42 P 


JKE 804£ , 7£ :POKE 8049 , £11 :POKE £050 , 19 







44 P 


JKE 8051 , 195 :POKE £05£ , 67 :POKE £053 , 31 






46 P 


JKE 8054 ,, 219 :POKE 8055 , 1£ :POKE, £056 , 31 






m p 


JKE £05'7 , 31 '.POKE 8058 , 210 :POKE £059 , 118 






50 P 


JKE £0 60,31 :POKEE0 61 .,2 1 :POKE£G 62, 3 :PGKE80 63, 




124 315 Call Status 


CK. 


60 S 


TOP 




125 [166 ] 

126 L037J 




70 V 


1 = 10 :EIA5 = :Dl=65:D2 = 66:L3 = 67:t;4=6£ :£T=£0 64 






60 


."T 1 3 , : PT 1 3 1 , 2 5 5 : CT 1 3 , 4 : 1'T 1 £ £, : IT 1 £ 9 , 2 5 £ : OPT 1 2 £ , 


4 4 


127 176 ACC MEM 




90 


;T 134,0 : OPT 13 5,0 :Ot.'Tl 34, 4 :0t T 1 32, : OPT 1 33, :0PT132,4 




130 376 CPIl test byte 


100 


JKT19,2 7:OPT19, 69 :FEr. PLANK DISPLA V 




131 377 ) 




150 


FOPI=£0 64T09£67:POKEI,32:KE: T I 




132 310 RET if Zero 




20 


' D OKE73, 64:P0KE74,31 :PEK SET I:SP = E00G 




133 323 J Output 


data 


10 


FOP o = £0 79 TO 9269: tOSPP&OOO :POKEJ>:"sWLr? O 




134 023 ) 




50.0 


;'-=rsp cy) 




, 135 043 INCR H.L. 




550 


0t:T19,3£:0I'T19,3£ 




136 003 INCR B.C. 




570 


POKE80 76,2 55 :PUKEE0 7 7, 255 :POKE£0 7£,255 




137 076 } (ACC) 3 




610 


IFPEEKC8066)=3£ TI'EK 6500 




140 003 J 




62 


POKE80 66,32 :POKE£0 69, 32: POKES 72,32:POKE£0 75,32 




141 271 CMP ACC to 


- 


6250 


GOTO 50 




142 302 JNZ 




650 


COSPB710 




143 [124] 

144 1.037 J 




6510 


POKE80 64,L1+32:PQKE£0 67,L2+32:POKE£0 70,L3 + 32 :POKE£0 73j 


L4 + 32 




6530 


POKE80 65,C1+32:POKE£0 6£,C£ + 32:?OKE£0 71,C3 + 32:POK:E£0 74 j 


C4 + 32 




6540 


POKE&0 66, Dl :POKE£0 69,D2:POKE£0 72, E3 sPOKECO 75, D4 




145 315 Call Status 




70 


COTG 50 00 ' 




146 [166] 

147 L037J 




710 


FOP C1: = TOl :OET131,CK:GPT129,CK 






7200 


MS = iriP<133) :LS = Ii\P CI 35) 




150 076 "*> 


v 


73 


V=CC1 6*KS+C(L£/1 6)AND1 5) ) *VI/40 9 5 ) -B IAS 




151 033 


) 


73 50 


V=10*CV-4> 




152 323 


f 


740 


IF Cli = TEEM L1 = IMTCU) 




153 023 


[ 


7410 


IF CE=1 TKEM Cl = Ii'ITC4*V) 




154 315 Call Status | 




742 


IF CI;=2 TI1EH L2=Ii\ITCV) 




155 [166] 

156 L037J 


. Cursor 


7430 


IF CK' = 3 TI:EK C2 = IBT(4*V) 




Home 


744 


IF CI' = 4 TKEM L3=IWTcy> 




157 [076] 
160 LllOJ 


1 


7450 


IF CI, = 5 TEEM C3 = IDTC4*V) 




\ 


7460 


IF CK=6 TKEN L4=IMTCV) 




161 323 

162 023 ^ 

163 303 Next Data 


\ 


74 70 


IF CK=7 TKEK C4=1NT(4*V) 




) 


7650 


NEJ'T CErRETL'RM 




point 


80 
80 2 


READ Y:l¥ >'=255 TKEM POKE J, Yi CO TO 5000 
RETPP.K 




164 [103] 

165 L037J 




850 


DATA. 3 5,35,43,3 6,3 6,43,3 7,3 7,43,3 8,3 8,43,39,39,43 






8501 


DATA 40,40,43,41,41,43,42,42,43,43,43,43,44,44,43 




166 333 "*> 


\ 


8502 


DATA 45,45,43,46,46,43 




167 022 * 


/ 


8590 


DATA 2 55:REK EKD OF BLOCK 




170 037 , 


1 


OK 






171 037 I 


. Status 








172 322 


* Check 




: 




173 [166] 

174 L037J 


V 








) 








175 311 > 


/ 








176 










177 










200 1st Data Loc. 






&* #% ■ ' Ti liiin 


IP 


* Port 2/RS232 






SOFTWAh 


IE 
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SOFTWARE 

NOTES 

By John Hayes 
General Manager, ASDC 

Program Improvement 

The Altair User Group is currently 
reviewing and improving the 300 
programs in the User Group Library. 
Many of the programs will be put in 
machine readable form and grouped for 
a particular size computer and language. 
Single programs will still be distributed 
in whatever form they are received. 
Current software listings (printed every 
month in COMPUTER NOTES and 
supplied as a separate update sheet to all 
CN subscribers) will show hardware and 
language requirements for each 
program. 

When submitting a program, users 
should indicate the computer (8800 or 
680b), the language used and the 
program's memory requirements in 
bytes. 

Price Increase 

Rising costs of program duplication 
have resulted in a slight increase in 
prices for some programs. Program and 
subroutine listings are now $4 for up to 10 
pages, $5 for 11-20 pages and $6 for 20-40 
pages. These new prices are indicated on 
the listings in this month's CN insert. 
Price changes for all previous programs 
will be issued as an appendix to the AUG 
Software Catalogue. 

Machine-readable code 

The User Group is interested in 
purchasing machine-readable code for 
software programs already in the 
library. Anyone who can provide the 
User Group with either paper tape or 
cassette forms of earlier programs 
should contact the Altair User Group 
Library, Suite 343, 3330 Peachtree, 
Atlanta, Georgia 30326. 



TEN 



User's Program 

Handles Complex Numbers 



Complex numbers often appear in 
scientific and advanced mathematical 
calculation. In order to use complex 
numbers, the reader must first 
understand the concept of imaginary 
numbers. 

An imaginary number is a real 
number multiplied with an imaginary 
operator. (The imaginary operator is 
usually represented by an "i" or "i.") 
This operator is defined so that the 
square root of minus one is equal to the 
operation, i.e.^-1 = i, or (i) 2 = -1 or i x i 
= -1 . Remember that the square root of a 
negative number is not usually defined. 
With the above definitions, the square 
roots of negative numbers can be 
represented. For example,/9~= 3 and^P5" 
= i3. 

Notice that (3) ! = 9 and (-3) 2 = 9. But 
U3) 2 = -9 and H3) 2 = -9. 

Graph 1 represents imaginary 
numbers should clarify the difference 
between imaginary numbers and real 
numbers. Remember that it is possible to 
graphically represent a function in two 
dimension by drawing an "x" and "y" 
axis and then plotting values of the 
function. 

(1) (X, Y) = (2, 2) 

(2) (X, Y) = (4, 3) 

(3) (X, Y) = (-2, 2) 

(4) (X, Y) = (3, 0) 





+ 


y 






1. 


5- 
4- 

3 - 






.™ 




%..._*. 


- 


— 


i 




: 1_ 






i (4) i 


X 1 I 

-5 -4 


i i i 

-3 -2 -1 

-1- 

-2- 

-3- 

-4- 

-5- 




1 


2 3 4 5 



By Chuck Vertrees 

A complex number is defined as a 
number that has both real and imaginary 
parts. It is usually represented in 
rectangular form as A + iB where A is 
the real part and B is the imaginary part. 
It is considered as one quantity when 
doing calculations. For example, the 
numbers (1) 3 + 12 and (2) 4 - »1 are 
rerpesented in graph 2. 



2. 



5 + 



4-- 
S-- 



-m — h 

-5 -4 



H 1 h 

■3 -2 -1 



CD 



-I- 1 1 h 



-+R 



(2) 



-1 

-2-- 
-3-- 
-4-- 



Graph 3 shows polar form as an 
alternative method of representing a 
complex number. Notice that the point 4 
+ j4 can also be represented as a vector 
(magnitude and angle), which is written 
as L-fe 

s , (4, i4) or 




(-+R 



In this case both the X and Y axis are 
real number lines. Now, let's replace the 
real Y axis with an imaginary "i" axis so 
that the Y axis represents imaginary 
numbers. 



In graph 3 the point 4 -t- 14 
(rectangular) is represented as the 
length L from the origin at angle-8-where 
L =• x 2 + Y 7 =/4 2 + 4 2 =/32*= 4v^and 
tan * =4/4 or-6-= arctan 1 = 45J which is 
represented in Standard Polar Form as 
4^2" ^5°. 

C/N June, 197 7 



The following complex number flow 
charf and program written in Altair 
BASIC is available through the Altair 
User Group Software Library. 
(AUG Library number: 7014) 



By Dr. John J. Herro 



Complex Number Intrepreter for BASIC 

(Used as a Program or Subroutine) 

Annotated Program Listing 

mainprgnv 49990 LZ=0: INPUT S$: GOSUB 50010: GOTO 49990 

subroutine 50000 LZ=1 

50010 SZ$="( ?+-*/ %!DRPEL": IF S$=""THEN RETURN 

50020 FOR JZ=1 TOLEN (SS): GOSUB50030: NEXTJZ: 

RETURN 

50030 FOR IZ=1 TO 16: IF MIDS (SS, JZ, 1)=MID$ (SZ$, 

IZ,1) THEN 50050 
badchar. 50040 NEXT IZ: PRINT "UNRECOGNIZED CHARACTER IN": 

GOTO 50170 
good char. 50050 ON IZ GOTO 50070, 50290, 50240, 50220, 50210, 50270, 50260, 
50300 

50060 ON IZ-8 GOTO 50200, 50190, 50280, 50330, 50120, 50320, 50150: 

RETURN 
( 50070 FOR IZ=JZTOLEN (S$): IF MIDS (SS, IZ, 1)=")"THEN 

50090 
missing ) 50080 NEXT IZ: PRINT "MISSING ) IN": GOTO 50170 

) 50090 AZ=VAL(MID$(SS$, JZ+1)): EZ=0 

; 50100 FOR KZ=JZ TO IZ: IF MIDS (S$, KZ, 1) =";" THEN 

EZ=VAL (MIDS (SS, KZ+D) 

50110 NEXT KZ: JZ=IZ: RETURN 
P 50120 IZ = 1.570796*SGN(EZ): IFAZTHEN IZ=ATN(EZ/AZ) 

50130 IFAZ 0THEN IZ=IZ+6.283185*((EZ 0)+.5) 

50140 AZ=SQR(AZ 2+EZ 2): EZ=IZ: RETURN 
L 50150 GOSUB 50120: IF AZTHEN AZ=LOG(AZ): RETURN 

aritherr. 50160 PRINT"LOG(Q) OR/0OR0 (X,Y),X =0IN" 

error 50170 PRINTSS: PRINT TAB(JZ-l)" " 

50180 IFLZTHENENDELSEJZ = LEN(S$): RETURN 
! 50190 IZ=AZ:AZ=BZ: KZ=EZ: EZ=FZ: GOSUB 50230: 

DZ=IZ: HZ=KZ: RETURN 
% 50200 IZ=AZ: AZ=BZ: BZ=IZ: IZ=EZ: EZ=FZ: FZ=IZ: RETURN 

50210 AZ=-AZ: EZ=-EZ 
+ 50220 AZ=BZ+AZ: EZ=FZ+EZ 

drop stack 50230 BZ=CZ: CZ=DZ: FZ=GZ: GZ=HZ: RETURN 
? 50240 PRINT AZ;CHR$(43-(EZ 0)*2) "I" ABS(EZ): GOSUB 50120 

50250 PRINT "=" AZ "AT" EZ*57.29578"DEG.": GOTO 50330 
/ 50260 GOSUB 50150: AZ=-AZ: EZ=-EZ: GOSUB 50320 

* 50270 IZ=AZ*BZ-EZ*FZ: EZ=EZ*BZ+AZ*FZ: AZ=IZ: 

GOTO 50230 
D 50280 EZ=EZ/57.29578: GOTO50330 

50290 DZ=CZ: CZ=BZ: BZ=AZ: HZ=GZ: GZ=FZ: 

FZ = EZ: RETURN 

50300 IF BZ=0 AND FZ=0 AND AZ 0THENAZ=0: EZ=0: 

GOTO 50230 

50310 GOSUB50200: GOSUB50150: GOSUB50270 
E 50320 AZ = EXP (AZ) 

R 50330 IZ=AZ*COS(EZ): EZ=AZ*SIN(EZ): AZ=IZ: RETURN 

NOTE: Spaces were inserted in this program listing to improve readability. 
Deleting all unnecessary spaces will save 149 bytes. This program was written in 
Extended BASIC. It will run in 8K BASIC if line 50180 is replaced with: 

50180 IF LZ THEN END 

50185 JZ=LEN(S$): RETURN 
A 30-page user manual is available for S6 from the Altair User Group Software 

CONTINUED 
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Resequencer Program Keeps 

Lines Evenly Incremented 



By Doug Jones 



Whenever I write a program in 
BASIC, the first few line numbers are 
always nicely incremented — 10, 20, 30 
etc. The subroutines also start at easy-to- 
remember line numbers, such as GOSUB 
1000. But things don't seem to stay that 
nice. I forget to put in a remark 
explaining what the routine is about and 
have to squeeze in 999REM. By the time 
the program is complete, the line 
numbers look anything but well planned: 
10, 16, 17, 33, 49 . . . 

The following resequencer program 
gives Altair 680 BASIC users 
professional-looking, evenly 
incremented lines. The user may choose 
the starting line number and the step of 
increment. 

The BASIC resequencer program is 
only 33 lines long. I intentionally wrote it 
in unusual line numbers. To avoid being 
a 'space' gobbler, the program lines are 
incremented by one. The last line, 63999, 



is the largest possible line number that 
680 BASIC will accept without displaying 
an error message. 
How to Use the Resequencer. 

Write or load your program 
containing the odd line numbers. Then 
load the resequencer and type in the 
starting line — RUN63967. After a few 
seconds, the computer will ask: 
OLD LINE, NEW, STEP, NULLS? 
Your answer might be 7,100,10, 5. This 
indicates that (1) your old program 
began at line 7, (2) you want to renumber 
it starting with line 100, (3) in increments 
of 10 and (4) set NULLS to 5. 

Resequencer does not rewrite a 
program in memory. Instead, it 
produces a typed listing properly 
sequenced to the users specifications. 
With this listing and a punched tape, the 
user can type NEW and then re-enter the 
newly sequenced program. 



Sometimes the resequencer might be 
half-way through a program and 
suddenly show an error message. For 
example, the newly sequenced listing 
might print the following message. 

240 IF A = B THEN GOSUB 

ERROR ON LINE 473 

OK 

The line number referenced to in the 
errormessage is in the original program. 
This can occur if the resequencer is 
asked to resequence a line that does not 
exist. 
How Does the Resequencer Work? 

Resequencer runs through a 
program three times. The first time ft 
looks for the first OLD line . When it is 
found, the system examines the program 
line by line, counting lines as it goes. It 
stops when it reaches its own first line 
number. 

On the second pass it gathers 
existing line numbers into an array for 



User's Program 

Handles Complex Numbers 

CONTINUED 



C 



START 



c 



RETURN 



r^> 



50020 



N / ANY MORE 
CHARACTERS 
IN STRING? 



CHAR. = ? ? 



50240 



PRINT 
REAL & 
IMAG 
PARTS. 



CALL 
POLAR 



PRINT MAG., t 
ANGLE (RADS) 
* 180/ j 



50080 



^H 



CHAR. - ( ? 



CHAR. - I J 



50290 



RAISE 
STACK 







PRINT 
ERROR 
MSG. 

Tmf 

50070 FOUND 



FIND NEXT ) 



50090 ■ ■ 



FOUND 



PUT FIRST NO. 
(OR ONLY NO. ) 
INTO REAL PART 
AT BOTTOM OF 
STACK, INTO 
IMAG. PART. 



50100 



IS THERE ; 
WITHIN ( ) ? 



PUT 2ND NO. 
INTO IMAG PART 
AT BOTTOM OF 
STACK. 



CHAR. = + ? 



CHAR. = - ? 



CHAR. = t ? 



V 



50210 



CHAR. = * ? 



CHAR. = / ? 



NEGATE 
«j BOTTOM NO. 
ON STACK. 



50260 



Y „ CALL 

LOG 



50300 



V 



50220 



ADD BOTTOM 
-H 2 N0S. ON 
STACK 



50230 



DROP 

THE 

STACK. 



50270 



CALL 
MULT 



V 



NEGATE 
BOTTOM NO. 
ON STACK. 



., CALL 
EXP 



BASE = & 

REAL (EXP0N) 

> ? 



PUT ON 

BOTTOM OF 

STACK. 



6 



50310 




7 






INTERCHANGE 
Z, AND Z z . 


CALL 
LOG 


50320 


*f 


' 


' 


CALL 
EXP 


1 


CALL 






MU 


LT 



TWELVE 
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future GOTO and GOSUB references. 

Resequencer displays the number of 
lines the program contains. It tells the 
user to READY PUNCH and then pauses 
while the operation is performed. 
Starting leader and control-0 are 
punched automatically to prevent echo. 

On the third pass, the program 
begins listing. Each initial line number is 
the incremental step from the previous 
line number. Referenced line numbers 
are then a function of the starting 
parameters and the position of a lin 
number in the array. 

The resequencing and listing stop 
when the program reaches its starting 
line number. It then resets nulls to zero, 
prints an END to undo the control^) echo 
suppression and spills out some finishing 
leader. 

Since resequencer starts looking for 
the old first line in the top part of 
BASIC, there is a slight chance that it 



T rtEM ***** UEMONSl KAl JON OF «ESEQ JENCEK HrtOGrtA^ ***** 

1 TNPUI A 

T7 TF A='-t I HEN 49 3 

if) "IF a-C I HEN GOSUB 1: 

SJ'OM 4 >G3IQ".I »37«49 

77 G3SJB 1 :G0i077 

-OTT GO 10 1 

W67 DA14ENir»FOR»MEXi ,DAi A, INiPUi , D f M,Kt AD, LEI , GOi O.riLN, IF ,nEbi Orih. 

WEAK 

-y 

KJN63-56 7 

OLD LTVE *, NEW *, SlEP, MJLLS? 3. 10.13. 5 

LINES =7 

'-+:auy PUNCH 



\n REM ***** IJEMONSlHiAJ ION OF KESEUUENCEk PrtOSlvAP* ***** 

fl TNPJi A 

3PI IF A=3 J HEN 771 

a* IF A=C I HEN GOSUB iW : 

51 ON A GO 10 8»,.3ft»AQ 

fPi GQSU3 POTiffO 10601 

7* GOTO 31 

-OND ' s 



-y 



CONTINUED 



50200 




<S 



50170 < ' 



PRINT 

COMMAND 

STRING. 



50180 



c 



LOG 



50160 



PRINT 
ERROR 
MSG. 



PRINT t AT 
CURRENT POS. 
IN STRING. 



IS PROGRAM 
STAND-ALONE 
OR SUBR.? 



STAND- 
1 ALONE 



c 



END 



J 



POLAR 



50120 



J 



CONVERT 
FROM 

RECT. TO 
POUR FORM 
(ANGLE IN 
RADS), 
SELECTING 
PROPER ARCTAN. 



c 



RETURN 



50150 



J 



MULT 



50270 



CALL 
POLAR 



j 



USE — — 

(W;Z)*(X;Y)= 
(WX-YZ;WY+XZ) 



IS MAGNITUDE 
> ? 



SET CURRENT 
POSITION TO 
END-0F-STR1NG 
(IGNORE REST 
OF STRING). 



RETURN 



c 



EXP 



50320 



TAKE 
EXP 

OF REAL 
PART. 



TAKE 
LOG 

OF REAL 
PART. 



J_ 



DROP 

THE 

STACK. 



c 



RETURN 



DC 



RETURN 



J 



RECT 



50330 ' ■ 



D 



CONVERT FROM 
POLAR (ANGLE 
IN RADS) TO 
RECT. FORM. 



C RETURN J 
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Policy 

opted! 



Due to rising costs, MITS will now 
only accept orders for $25 or more. 
Please place all other orders with your 
local dealer. 



Circuit Analysis Applications 
Expanded to Run with Altair BASIC 



By Tom Simpson 



Resequencer Program 

Keeps Lines 
Evenly incremented 

CONTINUED 

might find some assembled instruction 
with the same numeric value as the 
starting line number. However, I haven't 
seen it happen yet, and I've used the 
program to resequence everything I can 
find on a paper tape. 

It usually takes only a few seconds to 
find the starting line number — just a bit 
longer if the trigonometric functions are 
initialized in BASIC. Even if the old first 
line number doesn't exist, it will try its 
darndest to find it anyway. I've seen 
those lights blink for a half-hour, and it 
still wouldn't give up. 



An optional old starting line number 
further into a program will permit 
resequencing of a latter portion of the 
program. This works as long as there is 
no previous reference to the earlier part 
of the program that is not being 
resequenced. 

The user can increment the line 
numbers by any step, even 3.2 or -9.7. All 
GOTOs and GOSUBs are referenced 
correctly to line 437.13. Unfortunately, 
Altair BASIC will not run a program with 
line numbers like that. What can be done 
with such a listing? If you have a time- 
share computer access at work, give it to 
the time-share coordinator. Tell him or 
her: "Look what your time-share has 
done to all my computer files . . . now 
none of them run!" 



NJLL5jF0RN= ! I 110 : ?CHKi CP! > ! :NEXl :?CHkS( 1 b>:LISl 



6396 7 DAI AEND.FOR.NEXt .DAI A, INPUT ,D I M.HEAD.LEi .601 O.HUN 
639 6P DAI AGOSlIB.RETURN.REK.SIOP.ON.NULL.WAII .DEF.POK E,P 
S4<?6<) DA i ALTS 1 .CLEAR. NEW. 1 AfeC. i O.FN, bPC< . i HfcN.NOI «bi EP, 
«Q7T DAi AAND»0»i> » -. <.bGN, TNI . ABb.USR.FKt »P 06 ,i>UK »KND, 
639 7! DAI ASTN.l AM, Al N.PEEK, LEN.S I K5 W AL , AbC, CHKi ,LEr I S. 
6397^ RE ADC J ■: T FC?<> "END" I HEN63972 

63973 DTMAS(65>:F0RN=1106 5!READAS(N)»NE)U : C =0 :P =6 ! AS: Z = 

63974 IMPU1"0LD 1TNE #. NEW *. STEP. N JLL b"; OL jNlfc . I B,M 

6397 5 PIxPj TF0L<»256*CPE£i<CP + 2) )+PEEK CP + 3 ) 1 HENP=P+1 : G01 
63976 TF256*CP,EEKCP + 2> ) +PEEK CP+ 3> =Y i HENPR INi "L INES ="sC 
639 77 P= CC256*CPEEK<P))>+PE£KCP+1 ) ) : C *C+ 1 : GO! 0639 7 6 
6397!? PS INI "HEADY PUNCH": FORK =1 1 Ob:PR I Ni : NLX i : FORK =1 I 01 
639 79 NULL CM >: FORK rl 1 01 00 :PK IN 1 CHH$ C0 ) ! : NEX I :PK INI CHKSC 
639 R5I DICACC) :P=P1 :F0RN -HOC: ACN) =C C25 6* CPEEK CP + 2 >.> >+PE 
639 pj P=CC?b6*CPEEKCP) > )+PEEK(P+l ) > : NEX i N : LL =C: C =0: C$ e" 
639P2 IFC=LLI HENPHIN1 "END" : NULL.0 : FORN =1 t Oi0 :PH IN i CHR$ C0 
639 p 3 P?=(C2 56*CPEEKCP) ) 5+PEEKCP+l ) ) : P =P + 2 : LN =NW+ C I B*C ) 

639P4 PRTNIKIGHISCSTRJ CLN ) .LEN Ci I H i CLN ) )-l ) ! : C =C+ 1 

639RS P=P+1 : TFP=P2IHEN639R2 

639 P 6 F = PEEK(P) • IFF>ZT HENPH IN I A J CF- 1 2* ) ! : I FF =1 36 0kF =1 40 

639R7 JFF>7i HEN63985 

639 BB TFF=0) HENPR INI :PR IN 1CKRSCF): :P =P + 1 :G01 063982 

639B9 PRIN1CHRJCF) r :G0T 063985 

6399fli p=p+] :G=PEEKCP>: IFG> =4RANDG< =571 HENCS=CI+CHHS CG) : 

63991 TFG = 3?ANDFL=S1IH£N63999 

6399P TFFL=1 ANDG<2i HEN63996 

63903 TFFol 5RANDG<>0! HEN6399'i 

63994 F=G:G0I0639P6 

63995 PHTN1 :PSTN1"ERR0K ON LINE #": A CC > : NUL10 ! END 

63996 FORK = I 10LL: TFACK) =V AL C CS>> I HENXS =31 HS (N m* ( IB* CK- 1 > 

63997 NEXIKfGOI 063995 

639 9 b PSINIRIGHI $CX$,L£NCXS5-1 >: :FL=0:C$ =""s IFG<>32ANDG 

63999 PRTNICHRSCG5I :GOIO63990 

0< 

FOURTEEN 



.IF.REbl ORE 
H I N 1 . C ON 1 
♦.-»*./»» 

LOG. EXP, COb 
KI3H|$»MIUS 

I27:Y =63967 
A£C0)="END" 
063975 
:G0l 0639 78 

030;NEXi 

15):PkINI 

EKCP + 3) ) 

":P =P1 

); :NEXl SEND 

P=P + 2:G01 063986 

0rF=1:>8J HEN63990 



FL =1 :G0l 063990 



) ):G0l 063998 
<>44iHEN63994 



A circuit is a group of components 
with fixed characteristics interacting in 
some prescribed manner. An electrical 
engineer's job is to develop 
mathematical relationships between the 
various components of a circuit that 
describe the total behavior of the 
network. In order to develop these 
relationships, electronic circuits must be 
analyzed. 

Computer analysis of electronic 
circuits is nothing new in itself. However, 
this program brings automated analysis 
to the Altair computer running BASIC. It 
is, therefore, inexpensive to implement 
and easy to modify for special needs. 

The analysis technique and output 
formats used in this program are based 
on those in IBM's ECAP (Electronic 
Circuit Analysis Program), written for 
the I BAA 1620. The input format is slightly 
different than ECAP's. Although ECAP 
does three different types of circuit 
analysis, this program does only steady 
state D.C. analysis. 

The solution technique used is nodal 
analysis. It's based on Kirchoff's current 
law, which says the algebraic sum of the 
currents leaving (or entering) a node is 
zero, and Ohm's Law, which says voltage 
equals the product of resistance and 
current. Applying Kirchoff's current 
law, Ohm's Law and some matrix 
alegbra, a computer can find the solution 
of a circuit after a description of the 
circuit is in memory. 

Circuits are a series of nodes or 
places where things are connected 
together and branches or connections 
between the nodes containing electronic 
components. Input of the circuit to the 
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program is in terms of these branches 
and their nodes. 

The arrangement of each branch is 
standardized and assumed by the 
solution. (See Fig. 1.) Only the basic 
electronic components shown in Figure 1 
are recognized by the solution. Ohm's 
Law covers voltage, current and 
resistance but says nothing about 
transistors, diodes or 7400s. Since only a 
steady state solution is found in this 
program, capacitors are considered open 
circuits and inductors as short circuits. 

However, with the proper 
combination of the allowed elements 
shown in Figure 1, the user can "model" 
transistors, diodes and other non-linear 
components in a non-steady state and 
non-D.C. analyzer. 

Every branch must contain one and 
only one non-zero resistance or 
conductance. According to Ohm's Law, 
zero resistance requires an infinite 
current flowing in the branch. Each 
branch may have a voltage source, 
current source or dependent current 
source. Since this program has only a 
steady state D.C. analysis, the circuit 
must have at least one independent 
source, one node other than ground and 
one branch. Every node must have a 
path to ground through the branches of 
the circuit. Without the path to ground, 
certain sections of the circuit would 
"float" free of the rest. . 

Starting with the number one, each 
node is numbered in increments of one. 
Ground is always node zero. Branches 
and dependent current sources are 
numbered consecutively from one. There 
is no branch or dependent source zero. 
Output from the solution is in terms of 
these numbers. 
Input Program 

The input program is a compromise 
between ease of programming and ease 
of use. The easiest program to write 
might ask for the number of branches 
and then quiz the user on the values of it's 
components and the nodes to which it is 
connected. This would require a lot of 
operator and computer time that could 
be put to more productive use. The 
easiest program would permit a user to 
enter and edit any data in any order at 
any time. But such a program would be 
rather complicated to write. 



ALTAIR DC ELECTRONIC CIRCUIT ANALYSIS PROGRAM 
ADAPTED FROM IBM 1620 ECAP TO ALTAIR 8K BASIC 
( VERSION 3.2 OR 4.0 ) BY TOM SIMPSON 2/14/77 



IS CLEAR99tMO=3sDEFFNICX)=INTC-CX>0)*X)sINPUT"NODES";X:MN=FNICX- I) 

20 IN?UT"BRANCHES";X:MB=FN1 <X- 1 ) : iNPUfOEP SCS";X:MD=FMI CX- 1 > 

33 DIM M<MB*KfJJ,NI (MB) ,MFCM3), Z(MS + 1,MM+1 >,YCMB>., YL<MB> , YHCM3J , CUCMB) 

40 DIM ACHB),Al,a4B>,AK(MB>.,ECMB>,EL<rtB>.>EHCMB),D<MD),DL<MD>,DHCMD> 

50 DIM ESCMN), IP<M(OjNV<MN) #BV(MB> , INCMN, 1 )*W(MM ) .WLCMM ) #VHCMN > 

6ft DIM RWCMD>.,CL<MD>,SD<MN> :DS=" MB3 ":K$=" /SOKM"! CS = " BD*GREI ":K1=1 

70 PRINT:PRINT"ALTAIR DC ECAP" SPRINT :PS="CMBVEVECPLPDWCSD:WHCC>nif" :K0 = i 

KK~-1:K2=2 

80 K3=3:K4=4sK5=5:K6=6:K7*7:K9=9:NN=KMsNB=KM:ND=KrtsNY=KM:NE=K>18NA=KM 

90 PC= .01: CT=* 1000 s CM= 1 E6 s C 1 = . 00 1 s S6= 35 

110 PR=K0 

120 INPUTXS»L=LENCXS> :I=IC3: IFX$o"RUN"THEN 1 50 

130 IFNY-NBANDCNE>KMORNA>KM)ANDNB>K:'1ANDNN>KMTHEN1060 

140 PRINT-MIN REQUIREMENTS FOR SOLUTION NOT MET" SEND 

150 IFX$="MODIFY"THENMO=MO+K1:GOTO120 

160 IFLEFT$<XS,K13="R"THEN120 

170 IFXS=»"NEW"THEW10 

180 IFLEFTS<XS*K5>="PRIMT"THENI=K5:GOTO900 

190 IFX$=»"END"TH£NEND 

200 I=I+K1:IFI>LTHEN120 

210 FOKK=K1TOK4 8IFMIDSCX$.,I,K1><>MID$(CS,K,K1>THENNEXT:GOTO1000 

220 QNKGOTO2S0,233,23O,470 

230 TY=K-KlsGOSUB620tX=T-KliIFTY=K2THEN2S0 

240 IFX>MBrKEiv'PRINT"BRANCH # TOO GREAT"; tGOTO 1030 

250 IFM0THEN473 

260 IFND*KMTHENPR:nT"B RECORDS CANNOT FOLLOW D RECORDS"; : GOTO 1033 

270 MB=KB+K1«GOTO310 

280 IFX>MDTHEM?nitIT"DEP SOURCE f TOO GREAT"; : GOTO 1030 

290 IFMOTHEN370 

300 ND=ND+1 

310 I=I+KlsFORK=KlTOK3sIFMIDSCX$,I.,Kl><>MID$CD$,K,K!>THHNMEXT8GOTOIM0 

320 ONKGOTO313,420,343 

340 1FTY=»X1THEM1000 

350 GQSUB60iJ«TL=TL-Kl iTH-TH-Kl I IFTL:-KBORTH>MBTHEN 10 10 

350 CLCND)=»TL:RW(MD> = TH 

370 I=I+Kl:FORK-K3TOK5:IFMIDS<XSW*Xl><>MID$<D$,X,Kl>THENNEXTsGQTOi.030 

380 IFK-K5THEN370 

390 TT=K-K2:GO3UB62CsIFTT--K2TKEN410 

400 K=CL(ND) s?-"T*YCK> :TL=TL*YL<K> sTH=TH*YHCX> 

410 DCHD) = TsDLCWD) = TL:DK(ND) = TK: GOTO 120 

420 IFTY*K2TH£f»I900 

433 GOSUD603 :TL=TL-K1 »TH=TK--K1 i IFTL>MNOR'fH>MNTi;EN1020 

440 I ftl>mhthi?:k , n-tl 

4S0 IFTK>NNTHENNM=*TH 
460 raCX>=TLsMFCX>==TH 
470 I=I+KltIFI>LTKENl2H 

483 FO'KK-KSTOKv J I FM X DS <K% > I , K 1) <>M X DS < C$, K* X 1 ) THENNEXT « GOTO 1030 

4<>0 IFK»K$T;1E8«70 

SOT TT=K-XaiG0£U35 10 s IFr=KSAND^TT=KlGRTT=K2>THEN 1S40 

513 T=K1/T:T1=TL:TL=K1/TH:TH=K1/T1 

520 Y(X)--T:YL<X) = TL:YH<X)=TH:IFMO=K0TKENNY=NY+KI 

530 GOTO470 

540 ECX>-T:ELCX)=TL:EH(X)=TH:IFMO=K0THENNE=NE+K1 

550 GOTO470 

560 A<X)=T:ALCX)=TL:AH(X)=TH:IFMO=K0THENNA=NA+K1 

570 GOTO470 

600 ZZ=K2:GOTO650 

610 ZZ=K1:GOTO630 

620 ZZ=K0 

630 I=»I+K1:ZS=MID$(X$, I,K1) :IFZ$=" "ORZ$="="THEN630 

640 GOSUB790 sT=T 1 *MU 8 IFZZ=X0THENRETURN 

650 I=I+K1 :IFMID$CX$,I,K1)=" "THEN650 

660 IFMID$CX$,I,Xl)o"<"THENTL=T:TH=T:I=I-XllONZZGOTO760,1000 

670 I=I+K1:GOSUB790:TL=T1*MU 

680 I=I+KlsFORK=KlTOK3 8lFMID$CXS,I*KlX>MIDS<K$,K,K!>THENNEXT:GOTO1000 

690 ONXGOTO680,?00,710 

700 I=I+K1 lGOSUB7S0:TH=Tl*MU:GOTO730 

710 IFZZ<>K1THEN1000 

720 TL=ABS<T)*TL*PC:TH=T+TLsTL=T-TL 

730 I=I*XlsIFI>LORMIDSCXS,I,Xl)=")"THENRETURN 

740 IFMID$CXS,I,K1>=" "THEN730 

750 GOTO1030 

760 RETURN CONTINUED 

790 Tl=VALCMID$<X$,I)> 
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Circuit Analysis 
Applications 

CONTINUED 

The format used here falls 
somewhere in between these two 
extremes, It's not a particularly simple 
program, but it's straightforward. 
Although it doesn't allow a completely 
free format, it's fairly easy to learn. 
Input Format 

See the sample runs for the input 
format. Branches are described with the 
letter "B" as the first non-space 
character and followed by the branch 
number. A node "N" is followed by two 
node numbers in parenthesis. The first 
number is the initial node of this branch. 
The second is the final node. Initial and 
final nodes are determined by the 
positive current direction in the branch, 
which is set arbitrarily by the user. 
Current flows from the initial node to the 
final node. Then the component values in 
the branch are entered in any order. R = 
defines resistance, G= defines 
conductance, E= defines voltage source 
and 1= defines independent current 
source. Only component values included 
in the branch should be specified. The 
only thing missing from Fig. 1 is 
dependent current sources, which 
sometimes cause modeling difficulties. 

A dependent current source has a 
value which depends on a quantity in 
another branch of the circuit line. 
Dependent current sources are carried 
internally as transconductance values. 
Another often used value is current gain 
or beta value. The values are related by 
the equation: Transconductance = beta 
/ resistance of controlling branch. The 
problem is that if a beta value is used to 
describe a dependent source, then the 
resistance of the controlling branch must 
be previously defined. Otherwise, a 
"divide by zero" error occurs when the 
expression above is evaluated. So, 
dependent sources are entered 
separately and only after all other 
branch data has been entered. Line 260 in 
the program does not let the user enter 
any more branch data after one or more 
dependent sources are entered. 

The input line for dependent sources 
follows the format branch data. The first 
non-space character is the letter 
"D", followed by the dependent source 
number. Next is a branch group with the 
letter "B", followed by two branch 

SIXTEEN 



800 FORJ=ITOLsF0RK=KlTOK7:IFMID$<X$,J,Kl><>MID$<K$,K,Kl)THENNEXTK,J 

830 I = J-KlsMU=Kl:lFZZ«KtORK<K60RK>K7THENRETURN 

840 I=I+K1 : I FTT=K2ANDK=K6THEMMU=CT: RETURN 

850 IFTT=K2ANDK=K7TKENMU=CM :RETURN 

860 I=I+Kl JlFTT=K3AiMDMID$<Xs/l,Kl> = "V"THEN890 

870 IFTT=K4AtJDMIDS<X3,I.,Kn<>"A"THEN1000 

890 MU=CI:RETURN 

900 I=I+Kls IFI>LTHEN120 

910 IF MIDS<XS,I,K1)=" "THEN900 

920 IFMIDSCXS, I,K3>="ALL"THENPR=4095:GOTOl 20 

930 FORK=K0TO11 :IFMIDSCXS, I,K2 5<>MID$ CP$, K2*K+KI ,K2)THENNEXT :GOTO 1000 

940 PR=PR0RCK2tK) : 1= I+Kl : GOTO903 

1000 PRINT"SYNTAX EKROR-POS.";i:END 

1010 PRINT"BRANCH # TOO GREAT":END 

1020 PRINT"MODE f TOO GREAT": END 

1030 PRINT" - TRY AGAIN" :GOTO 120 

1040 PRINT"ZSRO RESISTANCE OR CONDUCTANCE NOT ALLOWED": END 

1060 IFPR=K3?HENPRINT"NO OUTPUT SPECIFIED"; :GOTO 1030 

1070 PRINT : PRINT : PRINT :PRINT:IFMOTHENPRINT"** MODI FY";MO;"**": GOTO 1090 

1080 PRINT"** SOLUTION **'* 

1090 PRINT!PRINT:PniNT 

1100 FORK=K0TONBiFORJ=K0TONN:M<K/J)=K0:NEXTJ^K 

1110 FORI=IC0TONBJlFMlCI)»JCMTHENM(I>NICI))=Kl 

1120 IFNFa>>KMTHENMCI,NF<I)>=KM 

113!?! NEXT 

1200 FORI=KGTONN:ZCI,NN+Kl>=K0:ZCNN+Kl,I)=K0;FORJ=K3TONNiZCI,J)=K0 

1210 FORK=K0TONB:T=;M<K, I > :T t=M CK, J> : IFT=K0ORT 1=K0THEN 1230 

1220 2CI>J) = 'ZCI*J>+T*TI*YCK) 

1233 MEXTK,J, I :IFND=KMTHEN1400 

1300 FORI = K0TOND:L=P.y<I) :M»CL<I) sFORJ=K0TONN sFORK=K0TONN 

1310 T=M<L, J):T1=K<M,IO:IFT=K0ORT1=K0THEN1330 

1320 Z(J,K)"ZCJ,K)-!-T*Tl*Da> 

1330 r,TEXTK,J,I 

14010 FOR!-K!?TON3:ClKI )»K0 tCUC I > = ACI )-YC I >*E< I ) :NEXT : IFND=KMTKEM 1440 

1410 F0RI=K8TG.\ T D:L=RWCI>:Li = CLU) 

M86 IFE<Ll)TKEHCU(L) = CUCL>-GCI>*ECLn 

14 30 NEXT 

14-iS FORN=KOTCNN:EC>(K) = K0:FOR?1=K0TONBsEOCN)=EQCN)<-«<t5 J .N)*CUCM):NEXTM,N 

1453 IFPR/j;DK2T:-:i:t'3GO£U32500 

1500 FORI=K0TONN:IPCI>=K0»NEXT:FORI=K0TONN:T=K0:FORJ=K0TONN 

1510 IFIP<J)=K1THEN1560 

1520 FORK=0TONN : IFIPCK)>K1THENRETURN 

1530 IFIP<K)=K1THEN1550 

1540 IFABS(ZCJ^K))>ABSCT)THENIR=J:IC=K«T=Z(J,K) 

1550 NEXTK 

1560 NEXTJ 

1570 IP(IC)=IP(IC)+KlJlFIR=ICTHEN1590 

1580 FORL=K0TONNsT=ZCIR,L) :Z< IR,L) = Z< ICL) :ZC ICL)=T:NEXTL 

1590 IN<I,K0>=IR:IN<I,K1>=IC:PV=Z<IC,IC)«Z<IC,IC>=K1 

1600 FORL=K0TONN:ZMC,L)=»Z<ICL>/PV:NEXTL 

1610 FORL1=K0TONN:IFL1=ICTHEN1640 

1620 T=Z<Ll,IC>*ZCLl,IC>=K0tFORL=K0TONN 

1630 Z<L1,L>=Z<L1,L>-Z<IC>L>*T»NEXTL 

1640 NEXTLl 

1650 NEXT I 

1660 FORI=NNTOK0STEPKM»IFIN<I,K0>=INCI,KnTHEN1690 

1670 IR=IN(I.,K0):IC=IN<I,K1) :FORK=K0TONN jT=Z<K* IR) »ZCK, IR)=Z<K, IC) 

1680 ZCK, IC)=T:NEXTK 

1690 NEXTI : IFPRAND2048THENGOSUB2600 

1700 FORN=K0TONN:NV<N)=K0:FORM=K0TONN:NV<N)=NV(N>+Z<NjM>*EQ<M}:NEXTMjN 

4710 IFPRAND256THENGOSUB2450 

1Y20 FORM=K0TONB:BVCM)=K0:FORN=K0TONN:BVCM>=BVCM)+MCM,N)*NVCN):NEXTN,M 

173^ IFPRANDK2THENGOSUB2700 

1740 FORI=K0TONB:BV< I )=BV( I )+ECI > :NEXT: IFPRANDK4THENGOSUB2800 

1750' FORI=K0TOWB:CU(I)=»K0:CU(I)=YU)*BVCI>-ACI>:NEXT:IFND=KMTHEN1790 

1760 1 FORI = K0TQND:L=RW(I):H = CLCI) 

4770 IFBV<L1)THENCU(L)=CUCL)+D<I)*B7(L1) 

1780 NEXT 

1790 IFPRANDS12THENGOSUB2900 

1800 FORI=K0TONB:CU<I)=CUCI>+ACI):NEXT:IFPRAND8THENGOSUB3000 

1810 FORI=K0TONBJCUCI)=CU<I)*B7<I):NEXT:IFPRAND16THENGOSUB3100 

1820 FORI=K0TONB:BV(I)=B7<I)-E<I):NEXT:IF<PRAND224)=K0THEN1 10 

1830 FORJ=K0TONN:T=NVCJ)!W(J)=T:WL(J)=T:WHCJ)=T:SD(J)=K0:NEXT 

1840 PV=K1:FORIT=K1TOK4:NU=NB«IFIT<>K2THEN1870 

1850 IFND=KMTHEN2360 

I860 NU=ND 

1870 FORI=K0TONUsONITGOTO1910,1910, 1880,1900 

1880 IFECI)=K0THEN2350 

1890 GOTO1910 

1900 IFACI)=K0THEN2350 

1910 FORJ=K0TONN:NV<J)=K0:NEXTJ:ONITGOTO1920, 1930, 1940, 1990 
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1920 Tl=YCI>*Y<I)*(E<I>+BV<I>):II=IsTR=Kl SGOTO2000 

1930 II=RV;«I) tJJ=CL<I)sTl=«-<E<JJ)+BV(JJ)):TR=K3:GOTO2000 

1940 IFND=KMTHEN1980 

1950 FORJ=K0TONDsIFI<>CL<J>THEN1970 

1960 II=»RWCJ> :T1=-D<J> iTR=K4sGOTO2000 

1970 NEXT J 

1980 II=IsTl=-YCI>sTR=K3sGOTO2000 

1990 1I=1:T1=K1:TR=K3 

2000 1FMI C II >=KMTHENNI=NN+K1 SGOTO2020 

2010 NI=NICII) 

2020 IFNF<Il)=KMTHENNF=NN+KllGOTO2040 

2030 NF=NF<II> 

20410 F0RN=K8T0NN:NV(N>=NV<N)+(Z<N,NI)-Z<N,NF)>*TlsNEXTN 

2050 ONTRGOTO2060, 2090, 2100, 1970 

2060 IFND=KMTHEN2100 

2070 FORJ=K0TONDs IFI<>CL<J>THEN2090 

2080 II=RW<J>sTl=YCI>*DCJ>*<EU>+BVCI>>sTR=K2sGOTO2000 

2090 NEXTJ 

2100 IF<PRAND32)=K0THEN2240 

2110 IFPVTHSNPRINTsPRINT"*PARTIAL DERIVATIVES*"sPV=K0 

2115 PRINTsPRINT"NODE VOLTAGES WITH RESPECT TO "S 

2120 ONITGOTO2130, 2140, 2150x2160 

nti.i npuiTiiorc im m Mirim ; I j.vi « f!f>Tfi-> t TCT 

2150 PRINT"VOLTAGE SOURCE IN BRANCH"; I+Kl IG0T02 I 73 

2160 PRINT"CURRENT SOURCE ACROSS BRANCH"; I+Kl 

2170 PRINTsONITGOTO2130,2190,2200,22l0 

. 2180 T1=PC/YCI):GOTO2220 

2190 Tl=PC*D<I>sGOTO2220 

2200 Tl=PC*EU>sGOTO2220 

2210 T1=PC*A<I) 

2220 PRINT"N0DE NO. ", "PARTI ALS", ,, SENSITIVITIES"sPRINTsFORNs:K0TONN 

2230 T=NV<N>*ABS<Tl)SPRINTN+Kl,NV<N>,TlNEXTN 

2240 ONITGOTO2250, 2260, 2270, 2280 

2250 T1=(Y<I)-YLCI>)/<Y<I)*YLCI)):T2=CY<I)-YHCI))/CYCI)*YH<I)):GOTO2290 

2260 T1 = DH( I )-D( I ) *T2=DL( I >-D< I > tGOTO2290 

2270 T1=EH<I)-E<I):T2=EL<I)-ECI):GOTO2290 

2280 Tl=AH<I>-A<I>tT2=AL<I)-A<I> 

2290 T=Tl-T2:FOR«J=K0TONNsONSGN<NVCJ>)+KlGOTO2320,23I0 

2300 WHCJ)=WH<J>+NV<J>*T2:WL<J>=WL<J>+NV<J>*TlsGOTO2320 

2310 WHCJ)=WHCJ)+NV(J)*T1 $WLC J>=WL< J>+NV< J)*T2 

2320 NEXTJsT=T*T/S6sFORJ=K0TONNsIFNV<J)=K0THEN2340 

2330 T1=NVCJ>SSD<J)=SDCJ>+T1*T1*T 

2340 NEXTJ 

2350 NEXTI 

2360 NEXTIT:IF(PRAND64)=K0THEN2400 

2370 PRINT sPRINT"*WORST CASE NODE VOLTAGES*" :PRINT 

2380 PRINT"NODE NO. ","NOM INAL CASE","W.C. MAX","W.C. 



MIN"sPRINTsFORJ=K0T 



ONN 

2390 PRINTJ+K1,W< J),WH< J), VLC J) :NEXT:PRINTtPRINT 

2400 IF<PRAND128)=K0THENPRINTsPRINTsGOTO110 

2410 PRINT !PRINT"*STANDARD DEVIATION OF NODE VOLTAGES*" tPRINT 

2420 PRINT"NODE NO.","STD. DEV.":PRINT:FORI=K0TONN 

2430 PRINTI +K1 , SQRC SD( I > ) :NEXT SPRINT jPRINT : GOTO 1 1 

2450 PRINT sPRINT"*NODE VOLTAGES*" : PRINT sPRINT"NODES", "VOLTAGES" SPRINT S LA 

iKM 

2460 K=LA+K1«LA=LA+K4:IFLA>NNTHENLA=NN 

2470 PRINTK+K1"-"LA+K1, tFORJ=KTOLAsPRINTNV< J), sNEXTsPRINT: IFNN>LATHEN246 



2480 PRINT8PRINTSRETURN 

2500 PRINTsPRINT"*NODAL CONDUCTANCE MATRIX*" 

2510 PRINT SPRINT"R0W COLS. "s PRINTS FORI =K0TONNsLA= KM 

2520 K=LA+K1SSLA=LA+K4 8IFLA>NNTHENLA=NN 

2530 PRINTsPRINTI+Kl" "K+KI"-"LA+K1, $FORJ=KTOLAsPRINTZ{ I, J}, sNEXTJs IFNN> 

LATHEN2520 ' 

2540 PRIPJTsNEXTIsPRINTsPRINTsPRINTsRETURN 

2550 PRINTSPRINT"*EQU1V. CURRENT VECTOR*"sPRINTsPRINT"NODE NO.", "CURRENT 

2560 PRINTsFORI=K0TONN $PRINTI+K1,EQ( I ) sNEXTI s tPRINTsRETURN 

2600 PRINT sPRINT"*NODAL IMPEDANCE MATRIX*"sG0T02513 

2700 PRINT sPRINT"*BRANCH VOLTAGES*" 

27 10 PRINT t PR JNT"BRANCHES", "VOLTAGES" sLA= KM 

2720 K=LA+KI SLA=LA+K4 S IFLA>NBTHENLA=NB 

2730 PRINTsPRINTK+Kr'-"LA+Kl,sF0RJ=KT0LAtPRINTBVCJ),:NEXTJsIFNB>LATHEN27 

20 



CONTINUED 



numbers in parenthesis. The first branch 
number is the controlling branch. The 
second is the branch in which the 
dependent source resides. The next value 
is the transconductance or beta value: 
G= defines transconductance and B = 
defines current gain. 

Assumed units are ohm, mho, volt 
and ampere. The following multipliers 
are available: K= kilohm, M= megohm, 
MV= millivolt and MA= milliampere. 
Numeric values can be in any form 
acceptable to BASIC'S VAL function. 

In many cases it's desirable to obtain 
a "worst case" analysis of a circuit. 
Circuit values are never absolute and 
vary in ranges, i.e. + 5%, + 10% etc. So 
the actual value installed in a circuit is 
unknown unless explicitly measured. A 
worst case analysis allows components 
with specified tolerance to vary during 
evaluation. 

To obtain a worst case analysis or 
standard deviation of node voltages, 
tolerance values for one or more 
parameters should be entered. They are 
entered as minimum/maximum values 
or a percentage which follows the 
nominal value, and enclosed in 
parenthesis. Both types are shown in the 
sample runs. 

By specifying a tolerance on one or 
rrore key component values in the 
circuit, the effect on the possible range 
can be determined on the desired output. 

Numeric values must have some 
acceptable terminating character. Since 
the input is into a string and numeric 
values are extracted using VAL, some 
means of finding the end of the number is 
needed to continue the scan of the input 
line. The first method I used was to 
compute the number of characters a 
number used on the input line using LEN 
(STR$(X) + (X>=0). However, a number 
entered as 4.25E3 causes the expression 
above to evaluate to LEN ("4250") + (-D 
= 4, or two less characters than 
"4.25E3". This method did not work for 
exponential numbers. So I decided upon 
another solution, which allows use of 
exponential numbers and more flexible 
input. This final solution uses numeric 
values immediately followed by some 
terminating character. The characters 
are space,/, (,),%,K,M and end-of-input 
line. They are in K$ and are frequently 
used in the input string. 
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SEVENTEEN 



Solution and Output 2740 print* print : return 

Twelve values are availablefrom the 

.wc.vcva.uc;> cue a c u 2900 PRINT sPRINT"*BRANCH CURRENTS*" : GOTO30 10 

solution. Any combination of output ^mz print :PRINT"*element currents*" 
values can be specified by an input line 3310 prinTsPRINT-brancheS", "CURRENTS" 
containing the word PRINT, left 3020 pR»"ila.kh 

r * " " • ' 3030 K=LA+IU:LA=LA+K4:IFLA>NBTHENLA=MB 

justified, followed by two-letter 3040 printk+k1"-"LA+ki., :forj=ktolasPRINTCU<J), :nextj sprint :ifnb>lathen33 
abbreviations for each desired value. 30 

fSoo Tahlo 1 VThe wnrH Al I fnllnwinn 3050 PRINT; PRINT I RETURN 

isee laDie 1.; I ne wora ALL Tonowmg 31gg print lPRINT"*ELEMENT POWER LOSSES*":PRINT:PRINT"BRANCHES"., "POWER LO 

PRINT causes all output to be printed. sS£S"sGOTO3020 

One variable, PR, is used to store the "" 

output information. Each bit of PR is set *****Sample run of altaik dc ecap 3/12/77 

to a value of one for one specific output ^^starting with the circuit in fig. 2 

type using the OR operator. The bits of run 

PR are tested using the AND operator NODES? 2 

..■,, ' i. i x , BRANCHES? 3 

when different output values are DEP $cs? 

available,, Any number of PRINT lines 

can be used anywhere in the input. ALTAI R DC ECAP 

The word RUN, left justified, starts ? r the nodes and branches have already been numbered 
the solution. First a check is made to see ? R branch l has initial node <ground) 

Ui . . . ,,„ x . .. ? R AND FINAL NODE 1 

if the minimum conditions for a solution ? B1 M <3/i> r = 3 e=24 

have been met. Line 130 checks for a ? R branch 2 has initial node 2 

resistance or conductance in every ? R AWD FINAL NODE 1 

? B2 NC2/1) R=4 

branch. There must be at least one ? R branch 3 has initial node 2 

independent source, at least one branch ? R and final node 

and at least one node. Line 1060 checks 7 B3 w <2/0) R=5 

ne .uou l. icc^ s ? R FQR 0UTPUT GET M0DE V0LTAGES 

for specified output. ? r and BRANCH CURRENTS 

After solution and printout is ? print nv bc 

complete, the program returns to the J ^ READY F0R S0LU ™ 

input routine. Several things are now 

possible. "END" returns to BASIC** solution ** 

command level. "NEW" restarts the * N0DE VOLTAGES* 

program from. the beginning and resets nodes VOLTAGES 

all circuit values. Since the solution does 

not alter any input data, additional l " 2 18 10 

output can be specified and another RUN *BRANCH currents* 
made. The print variable, PR, is reset to BRANCHES CURRENTS 

zero or no output after each solution. 

Each RUN produces only the output 1-3 2 -2 2 

requested for that RUN. 

Modify ? R THE CURRENT IN BRANCH 2 IS NEGATIVE OR 

The word MODIFY, left justified, 7 R OPPOSITE IN DIRECTION TO THAT WHICH 

? R WAS AS SI CM ED 

increments the modify flag, variable? r 

MO. Data that changes component"? R now modify the circuit to bs fig. 3 

values can then be entered. Changing a | rthe' VOLTAGE SOURCE IN BRANCH 1 IS NOW 12 VOLTS 
value to zero effectively removes the? R the resistance in branch 3 IS NOW 11 ohms 

component from the circuit. New sources * B3 R=l1 

. ,-' . . ,. . . ? R GET THE SAME OUTPUT 

can be entered in any established ? print nv BC 

branch. New branches cannot be ? RUN 

entered. ** modify l ** 

To modify a branch, enter the letter #N0DE VOLTAGES* 

"B" and the branch number. Omit the 

node group and enter the new values in, N0DES VOLTAGES 

this branch. Component values that will 1-2 10 7.33333 

not be changed can be omitted. To .„„ _.__„.«.. 

♦branch currents* 
modify a dependent source number, omit 

the branch group and enter new branches currents 

transconductance or beta values. If beta 

values are entered, the resistance in the 

controlling branch should be changed 



1 - 3 .666667 -.666667 .666667 
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? R MODIFY IT AGAIN TO BE FIG. 4 

? MODIFY 

? Bl R=5 E=-24 

? R THE VOLTAGE SOURCE IN FIG. 4 BRANCH I 

? R IS OPPOSITE IN POLARITY TO THE 

? R STANDARD BRANCH CFIG. I) 

? B3 E=12 R=6 

? R INCLUDE BRANCH VOLTAGES IN THE OUTPUT 

? PRINT BC 

? R FORGOT SOME 

? PRINT NV BV 

? RUN 

** MODIFY 2 ** 

•NODE VOLTAGES* 



NODES 



VOLTAGES 



1 - 2 -20 

♦BRANCH VOLTAGES* 



BRANCHES 


VOLTAGES 


1 - 3 


20 


BRANCHES 


CURRENTS 



-16.8 



3.2 



1-3 -.8 .8 

? R WANTED RESISTOR CURRENTS TOO 
? PRINT EC 
? RUN 

** MODIFY 2 ** 

♦ELEMENT CURRENTS* 



■16.8 



-.8 



BRANCHES 



CURRENTS 



1 - 3 



-.8 



.8 



.8 



NOW ANALYZE THE SINGLE ST8GE COMMON EMITTER 

AMPLIFIER IN FIG. 5 

THE E8UIVALENT CIRCUIT IS SHOWN IN FIG. 6 

CAPICATORS HAVE BEEN REPLACED 

WITH OPEN CIRCUITS AND THE 2N657 

TRANSISTOR WITH IT'S EQUIVALENT. 

THERE ARE THREE NODES- SIX BRANCHES- 

AND ONE DEPENDENT SOURCE. 

HAVE TO START OVER-- 



1 R 

1 R 

? R 

? R 

? R 

? R 

? R 

? R 

? R 

? NEW 

NODES? 4 

BRANCHES? 9 

DEP SCS? 3 

ALTAI R DC ECAP 



THIS TIME INCLUDE TOLERANCE VALUES FOR 
WORST CASE ANALYSIS AND STANDARD DEVIATION 



? R 
? R 
? R 

? Bl NC0/2) R=2KC77.) E=20(5%> 

? B2 N<0/1> R=6K(7S) 

1 * E=20CI9/21> 

t B3 NC0/I) R=1000<7%> 

? B4 NCI/3) R=350(10S> E=-500MV 

? B5 NC3/0) R=500C465/535> 

? B6 N(2/3> R=ll. 1E3C10S) 

? Dl B<4/6> B=50<10%) 

? PRINT ALL 

? RUN 

** SOLUTION ** 

♦NODAL CONDUCTANCE MATRIX* 



4.02381E-03 
.142857 5.9009E-04 
-.145714 -9.00901E-05 



v.ms 


r.m »;. 


1 


1 - 3 


2 


1 - 3 


3 


1 - 3 



-2.85714E-03 
-. 142947 
. 147804 

CONTINUED 



first with the "B" command, if the 
resistance is changed at all. 

Once the word MODIFY is entered, 
only circuit modifications can be 
performed. However, they can be. 
performed as many times as necessary. 
If the ability to add branches to the 
circuit is necessary, the program must 
be changed to allow the modify flag, MO, 
to be reset to zero. 

Subroutines are used for printing alt 
output except partial derivatives, worst 
case and standard deviation, which are 
computed only if output is requested. 
General Program Description 

Lines 10 to 110 set up the program. 
Function FNI minimizes its argument to 
zero, avoiding a FC error in the DIM 
statements. Three input statements get 
maximum nodes, branches and 
dependent sources to accommodate 
different memory sizes. To speed 
execution, variables are used for 
constants. 

Lines 120 to 570 process the input 
line. "R" as the first character on the 
line causes the line to be ignored and can 
be used to insert remarks into the input. 
Using an asterisk as the first character 
indicates that this line is a continuation 
of the previous line and causes a iump to 
the parameter extraction routine at line 
470. The next non-space character of a 
continuation line must be R, G, E or Iv 
Dependent source input lines cannot be 
continued. 

The processing of an input line is 
simple. Look for "B" or "D", find its 
number, check the number's range, find 
the node or branch group, check the 
numbers range and then extract 
parameter values, putting them in the 
appropriate matrix. Resistance is 
carried internally as conductance. At 
line 510 minimum-maximum resistance 
tolerances become maximum-minimum 
conductance tolerances. 

The subroutine at line 600 controls 
extraction of numeric values. It has 
three entry points at lines 600, 610 and 620 
to extract a single value ("B" or "D" 
numbers), two numbers in parenthesis 
(node or branch group) or both (nominal 
and tolerance values). 

Subroutine 790 to 890 extracts values, 
finds their length on the input line and 
retrieves the multiplier, if present. The 
value is returned in Tl and the multiplier 
value in MU. ■? 
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Lines 900 to 940 handle the PRINT 
input line. Each two-letter group is 
compared to allowed commands in P$ by 
loop variable K. When a command is 
found, K has the bit number that needs to 
be set to one. Two raised to the power K 
has the decimal equivalent needed in 
BASIC. Using the OR operator to set the 
bits doesn't change any bits already set. 
Setting the same bit more than once has 
no effect either. 

Lines 1000 to 1040 are error 
messages. Error detection is limited and 
is not recoverable except when an error 
occurs at the beginning of the input line 
in a "B" or "Q" number. 

Lines 1 100 to 1 130 set up matrix M — 
the nodal connectivity matrix. It is set to 
_+ 1 or zero, indicating which branches 
are "connected with which nodes. The 
values indicate: 1 = initial node, -1 = 
final node and = node not connected to 
branch. If one node of a branch is ground, 
no information is entered into matrix AA. 
Instead, it is implied by the absence of 
one node. 

Lines 1200 to 1290 set up matrix Z — 
the nodal conductance matrix. Z is a 
square matrix with dimensions max. 
nodes +1 by max. nodes +1. Its values 
are the conductance between the nodes 
indicated by the subscripts. When the 
subscripts are the same, values on the 
major diagonal give the conductance 
from the node to ground. 

Lines 1300 to 1380 add 
transconductance values to matrix Z if 
there are any dependent current sources 
in the circuit. 

Lines 1400 to 1430 compute the 
current for each branch in matrix CU. 
Lines 1440 to 1450 produce matrix 
EQ=AA*CU — an equivalent current 
vector for each node. 

Matrix Z is inverted at lines 1500 to 
1690, changing Z to a nodal impedance 
matrix. There are node resistances in 
matrix Z and equivalent node currents in 
matrix EQ. The product NV=Z*EQ is 
taken at line 1700, setting the NV matrix 
to node voltages. (Ohm's Law) 

Line 1720 takes the difference 
between initial and final node voltages 
and gives branch voltages in matrix BV. 

Resistor (element) voltages are 
computed at line 1740. The source voltage 
is added to the branch voltage. Resistor 
voltage is a voltage drop, and source 
voltage is a voltage rise or negative 

TWENTY 



♦MODAL IMPEDANCE MATRIX* 
ROW COLS. 

1 1-3 823.889 

2 I - 3 -3163.61 

3 1-3 810.31 

♦NODE VOLTAGES* 



2.85272 18.6852 
1977.27 1851.14 
4.01752 26.3149 



NODES 



VOLTAGES 



1 - 3 2.79423 

♦BRANCH VOLTAGES* 



11.0728 



2.26853 



BRANCHES 
1 - 4 



VOLTAGES 
-11.0728 



5-6 2.26853 

•ELEMENT VOLTAGES* 

BRANCHES VOLTAGES 

1 - 4 8.9272 

5-6 2.26853 

♦BRANCH CURRENTS* 



•2.79423 -2.79423 

8.80427 

17.2058 -2.79423 

8.80427 



, 525696 



.0256958 



BRANCHES 



CURRENTS 



1-4 4.4636E-03 

♦ELEMENT CURRENTS* 



BRANCHES 
1 - 4 



CURRENTS 
4.4636E-03 



5-6 4.53706E-03 

♦ELEMENT POWER LOSSES* 



2.86763E-03 -2.79423E-03 2J9423E-03 

2.86763E-03 -2.79423E-03 7.34167E-05 
4.46401E-03 



BRANCHES 
1 - 4 



POWER LOSSES 
.0398475 



5-6 .0102925 

♦PARTIAL DERIVATIVES* 

NODE VOLTAGES WITH RESPECT 

NODE NO. PARTIALS 



.0493398 
.0393023 



7.80771E-03 1.8865E-06 



1 
2 
3 



-6.36671E-06 
-4.41288E-03 
-8.9663E-06 



NODE VOLTAGES WITH RESPECT 
NODE NO. PARTIALS 



1 
2 
3 



•3.93768E-04 

1.51201E-03 

■3.87278E-04 



NODE VOLTAGES WITH RESPECT 
NODE NO. PARTIALS 



2.30213E-03 

•8.S3985E-03 

2.26419E-03 



NODE VOLTAGES WITH RESPECT 
NODE NO. PARTIALS 



TO RES. IN BRANCH 1 

SENSITIVITIES 

■1.27334E-04 
'.0882576 
-1.79326E-04 

TO RES. IN BRANCH 2 

SENSITIVITIES 

-.0236261 

.0907207 

-.0232367 

TO RES. IN BRANCH 3 

SENSITIVITIES 

.0230213 

-.0883985 

.0226419 

TO RES. IN BRANCH 4 
SENSITIVITIES 



2.84905E-06 

2.70973E-04 

-6.94049E-05 



9.97166E-06 

9.48406E-04 

-2.42917E-04 
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NODE VOLTAGES WITH RESPECT 
NODE NO. PARTIALS 

1 1.69551E-04 

2 .0167975 

3 2.38785E-04 
*E«UIV. CURRENT VECTOR* 



TO RES. IN BRANCH 5 

SENSITIVITIES 

S.47757E-04 
.0839875 
1.19392E-03 



NODE NO. 

1 
2 
3 



CURRENT 

4.7619E-03 
.0814286 
-.0728571 



NODE VOLTAGES WITH RESPECT 
NODE NO. PARTIALS 

1 -1.13134E-06 

2 9.01302E-06 

3 -1.59331E-06 

NODE VOLTAGES WITH RESPECT 
NODE NO. PARTIALS 

1 .406827 

2 -3.24105 

3 .57295 

NODE VOLTAGES WITH RESPECT 
NODE NO. PARTIALS 

1 1.42636E-03 

2 .988637 

3 2.00876E-03 

NODE VOLTAGES WITH RESPECT 
NODE NO. PARTIALS 

1 .137315 

2 -.527269 

3 .135052 

NODE VOLTAGES WITH RESPECT 
NODE NO. PARTIALS 

1 -.0388067 

2 -3.69089 

3 .945356 



TO RES. IN BRANCH 6 

SENSITIVITIES 

-1.25579E-04 

1.00045E-03 

-1.76858E-04 

TO GM. BRANCH 4 TO BRANCH 6 

SENSITIVITIES 

5.S1182E-04 
-4.63007E-03 
8.185E-04 

TO VOLTAGE SOURCE IN BRANCH 1 

SENSITIVITIES 

2.85272E-04 
. 197727 
4.01752E-04 

TO VOLTAGE SOURCE IN BRANCH 2 

SENSITIVITIES 

.027463 
-. 105454 
.0270103 

TO VOLTAGE SOURCE IN BRANCH 4 

SENSITIVITIES 

-1.94033E-04 
-.0184545 
4.72678E-03 



♦WORST CASE NODE VOLTAGES* 

NODE NO. NOMINAL CASE W.C. MAX 



1 2.79423 

2 11.0728 

3 2.26853 



3.2806 
15. 1519 
2.75874 



W.C. MIN 

2.31021 
6.97497 
1.78163 



♦STANDARD^ DEVI AT I ON OF NODE VOLTAGES* 
NODE NO. STD. DEV. 



1 
2 
3 



.0896619 

.555564 

.0883014 



? R NO MORE TO DO 
7 END 
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voltage drop. This is reflected in Fig. 1 by 
the source and resistor voltages that are 
opposite in polarity. The branch voltage 
is the sum of the voltage drop in the 
branch or BV = EV + (-E) and EV = BV 
+ E. 

Lines 1750 to 1780 compute branch 
currents in matrix CU by using Ohm's. 
Law (l-E*G) to find the resistor current, 
adding the dependent current source and 
subtracting the independent current 
source. The independent current source 
is subtracted rather than added, because 
it is opposite in direction from the branch 
current. 

By adding the independent current 
source back in at line 1800, resistor 
currents are computed in matrix CU. 

Line 1810 computes the power lost in 
each resistor as the product of resistor 
current and voltage. 

Line 1820 returns matrix BV to 
branch voltages. 

Lines 1830 to 2240 compute partial 
derivatives of node voltages with respect 
to each circuit parameter. They also 
compute a sensitivity coefficient 
representing the change in node voltage 
for a one percent change in the 
parameter value: 

Worst case node voltages are 
computed at lines 2240 to 2310. Lines 2240 
to 2280 produce tolerance values with 
maximum tolerances being positive and 
minimum tolerances negative. A worst 
case maximum value is computed as the 
sum of the products of partial derivatives 
and tolerance values when both terms 
are positive. A minimum value is the 
sum when both terms are negative. 
Assuming that the partial derivatives 
are nearly constant over the tolerance 
range, the worst case analysis is within 
about three percent of actual values. In 
other words, keeping tolerance values 
small (10% or less) keeps the worst case 
analysis within three percent of actual 
values. 

If larger tolerances need to be used 
or more accurate results are desired, use 
direct substitution of minimum/maxi- 
mum values according to the sign of the 
partial derivative in a MODIFY and 
RUN again. Be sure to repeat the 
procedure for each parameter. The 
analysis used in this program has the 
advantage of giving results directly from 
the nominal solution. 

CONTINUED 
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Lines 2320 to 2330 compute a 
standard deviation of node voltages 
based on partial derivatives and 
tolerance values. 

The sample solutions that follow 
were run on an Altair 8800b with 16K 
memory. I used Altair 8K BASIC 
(versions 3.2 and 4.0) with some memory 
to spare. 

Processing an input line of branch 
data requires about three to 10 seconds, 
depending on the number of values. The 
complete output in the sample run took 
about 15 minutes to print on a 110 baud 
terminal. By using 4.0 BASIC, input can 
easily be saved for large circuits. 

Readers who are unfamiliar with 
electronic circuit analysis should look for 
a simple electrical engineering or 
network analysis text. 

For more information on 
applications, read IBM's 1620 ELEC- 
TRONIC CIRCUIT ANALYSIS PRO- 
GRAM (ECAP; 1620-EE-02X) USER'S 
MANUAL (publication number H20-0170- 
1) or IBM ELECTRONIC CIRCUIT 
ANALYSIS PROGRAM TECHNIQUES 
AND APPLICATIONS, Jenren and 
Lieberman, Prentice-Hall, Inc., 
Englewood Cliffs, N.J. 

Table 1 
Available Output 

NV Node voltages 

BV Branch voltages 

EV Element voltages 

BC Branch currents 

EC Element currents 

PL Element power losses 

PD Partial derivatives 

WC Worst case analysis 

SD Standard deviation 

CM Nodal conductance matrix 

IM Nodal impedance matrix 

CV Equivalent current vector 

ALL All the above 



Variabl e list 

MO - Modify flag 

MN - Maximum nodes 

MB - Maximum branches 

MD - Maximum dependent sources 

M(MB,MN) - Connectivity matrix 

NT (MB) - Initial node of branch MB 

NF (MB) - Final node of branch MB 

Z<MN+1,MN+1) - Nodal conductance matrix 

Nodal impedance matrix 
Y(MB) - Conductance in branch MB 
YL(MB) - Minimum conductance in branch MB 
YH (MB) - Maximum conductance in branch MB 
CU(MB) - Current in branch MB 
A (MB) - Nominal current source in branch MB 
AL(MB) - Minimum " 

AH (MB) - Maximum " " " " " 
E (MB) - Nominal voltage source in branch MB 
EL (MB) - Minimum " " " " " 
EH (MB) - Maximum 

D(MB) - Nominal transconductance in branch MB 
DL(MB) - Minimum 
DH(MB) - Maximum " 

EQ(MN) - Equivalent current vector for node MN 
IP(MN) - Counters for matrix inversion 

IN(MN,1) - Subscripts of matrix Z showing Maximum values 
NV(MN) - Node voltage of node MN 
BV(MB) - Branch voltage of branch MB 
W(MN) - Nominal node voltages 
WL(MN) - Worst case minimum node voltages 
WH(MN) - " " maximum " " 
RW(MD) - Residing branch of dependent source 
CL(MD) - Controlling branch of dependent current source 
SD(MN) - Standard deviation of node voltages squared 
D$,K$,C$,P$ - comparison characters for input 
KM,K0,Kl,K2,K3,K4 r K5,K6,K7,K9,PC,CT,CM,CI,S6 - constants 
NN - Number of nodes in this curcuit 
NB - " " branches " "" 

NY - " " resistances (conductances) in this curcuit 
NE - " " voltage sources in this circuit 
NA - " " independent current sources in this circuit 
PR - output flags 
X$ - input line 
L - Length of X$ 

I - Character pointer in X$, Loop variable 
J,K,L,M,N,L1,IT,II , JJ - loop variables 
TY - Type of current input line 
X - present branch or dependent source number 
T - Temporary nominal value 
TL - " minimum " 
TH - " maximum " 
TT - Type of current parameter 
NI,NF,T1,T2 Temporary variables 
ZZ - Seturn flag for subroutine 60 
MU - Multiplier value 

LA - Last value to be printed on this line 
PV - current pivot 
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Figure 1 
ECA? Standard Branch 



Vni = initial node voltage 

Vnf = final node voltage 

BV - branch voltage 

EV = element (resistor) voltage 

BC ■ branch current 

EC = element (resistor) current 

D = dependent current source 
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New Troubleshooting Techniques 



Defined for Aitair 680b B — F — 

would then jump to 0000 instead of 
outputting to the terminal. Bad memory, 
particularly in locations 00F3-00FF, can 
throw the MPU off (the stack pointer is 
stored in one of these locations). If the 



Isolating problems in the Aitair 680b 
is sometimes difficult due to the 
interaction between hardware and 
software. The Aitair 680b may fail to 
operate for several reasons. Bit 7 of 
location F002 might be high and the 6800 
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Figure 6 



6800 can't access the proper instructions 
from the PROM monitor, the 680b can go 
into a wild run condition. Finally, if the 
ACIA isn't initialized or working, the 
680b may not output. 

Troubleshooting procedures for 
these problems are covered in this 
article, following a brief explanation of 
the Reset and Monitor operations during 
Reset. (The Baudot option monitor is not 
described here. However, those users 
with the Baudot option should be able to 
apply this information to their systems.) 
Reset 

After the Aitair 680b is powered up, 
the 6800 microprocessor can be 
programmed to start executing at any 
memory location. This differs signif- 
icantly from the 8080 microprocessor, in 
which the 8080 program counter is 
cleared with reset and execution starts at 
location 0. The 6800 is reset when RES 
(reset - pin 40 of the 6800) is low for eight 
clock periods. A reset operation involves 
retrieving the contents of memory 
location FFFE and FFFF and loading 
this information into the program 
counter. 

The microprocessing unit (MPU) 
then starts execution at the location 
indicated by the program counter. Notice 
that in the Aitair 680b, locations FFFE 
and FFFF are located inside the PROM 
monitor. 

When the 6800 microprocessor is 
halted and the Reset switch is held, VMA 
is low, BA and R/W are high (read 
state), and the address bus contains the 
restart address FFFE. Address lights 
A1-A15 are then on, and the A0 light is off 
when the Reset switch is held. When the 
Run/Halt switch is moved to Run, the 
6800 reads from FFFE and FFFF, 
storing the byte in FFFE in the upper 
part of the program counter and the byte 
in location FFFF in the lower part of the 
program counter. The 6800 then jumps to 
the location pointed to by FFFE and 
FFFF. 
Monitor Operation During Reset 

When the 6800 starts executing the 
instructions, the instructions pointed to 



by locations FFFE and FFFF resets the 
ACIA and examines location F002. 
Location F002 is the address of the 
hardware programmable bits (i.e. 
terminal/no terminal, Baudot/no 
Baudot, etc.). The MPU stores this bit 
pattern from location F002 along with 
other information into locations OOF3- 
OOFF. If bit 7 (terminal/no terminal) is 
high, the MPU branches to location 0000 
and starts execution. If bit 7 is low, the 
MPU examines the number of stop bits 
indicated by location F002 and sends this 
information to the ACIA. When the ACIA 
is Ready to output, the MPU then outputs 
the prompt character. 
Troubleshooting 

1. Halt the 680b and examine location 
F002. Data bits 5 and 6 should be high. 
Data bits 1, 2, 3, 4 and 7 should 
correspond to the hardware- 
programmable straps set by the user. 

a. Bit 1 will be low if the no Baudot 
option is set. 

b. Bit 2 will be low if 2 stop bits are 
set and high for 1 stop bit. 

c. Bits 3 and 4 are not used and are 
normally set low. 

d. Bit 7 will be low for terminal 
option and high for no terminal 
option. 

If the data lights do not match the 
above list, check for shorts and bad ICs. 
IC RR should be enabled with a low at 
pins 1 and 15. The inputs of IC RR 
correspond to the hardware straps. If IC 
RR is not enabled ICX is usually at fault. 

2. Try the 680b first in no terminal 
option with the following jump routine. 

Jump 



0000 
1 
2 



7E 

00 
00 



lump 



If the 680b fails to execute it 
properly, examine all the locations in the 
PROM, particularly locations FFFF, 
FFFE and FFD8-FFF4. The data in 
these locations should match the listing 
given in the System Monitor Manual. If 
not, do the following. 

a. Check address gating at pin 14 

(chip select) for the PROM. 

Examining addresses from FF00- 

FFFF should result in a low at pin 

14. 

* When running, only A0 & 1 should be lit. 
CONTINUED 
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b. Check each address line on the 
PROM by separately lifting up A0- 
A7 and monitoring the PROM 
address pins. If a line fails to go 
high with the address switch, 
check for shorts. Shorts between 
address lines can be found by 
trying combinations of addresses. 

c. Check the power and ground to the 
PROM. Note that the -9v should be 
at least -9v at the bottom of the 
ripple. 

d. Check the data from the PROM 
and the data buffers WW and YY. 
These buffers should be enabled. 

e. Chip select (pin 13 of the 2102 
RAMs) should not be low for 
address FFOO-FFFF. 

f. The MPU R/W line should be high 
when the 680b is halted. Check the 
halt state levels of the 6800 as 
shown in the following list. 











Status 










(MPU 


Chip 


ID 


Pin 


Label 


Stopped) 


MPU 


NN 


2 


HALT 


LOW 






3 


01 (phase 1 clock) 


01 






4 


1 RQ ( interrupt request) 


HIGH 






5 


VMA (valid memory) 


LOW 






6 

1 


NMI (nonmaskable 

interrupt) 
BA(bus available) 


HIGH 
HIGH 






34 


■ R/W (read/write) 


HIGH (pulses 

LOW during 
deposit) 






37 


02 (phase 2 clock) 


02 






40 


RES (reset) 


HIGH 



3. Make sure that working RAM 
memory exists in location 0000-00FF by 
depositing into each bit separately. 
Locations 00F2-00FF are used by the 
PROM monitor for various software 
bytes such as breakpoint address, 
echo/no echo and the stack pointer. 
Make sure that these locations work and 
are separate from all other locations by 
lifting up each address switch one at a 
time and checking to see if only the 
corresponding LED lights. If an LED 
does not light, check for shorts. (For 
information on deposit problems, see 
"Troubleshooting the 680b," September 
CN, pp. 6-7 and 104 

4. Unfortunately, the ACIA status 
and data register can't be checked with 
the 680b in the halt state, because VMA is 
low when the MPU is halted. If the ACIA 
is not reset properly or given correct 
serial information, the 680b may not 
output the prompt character. 

Check the inputs to the ACIA for the 
halted state as listed in Table 1. Table 2 
shows a program which initializes the 
ACIA and constantly outputs the 
character whose ASCII code is in 
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location 000B. This program is designed 
to be run when the 680b is strapped for no 
terminal so that the inputs which 
activate the ACIA can be seen. Notice 
that if 41 is in location 000B, the letter U is 
output. The ASCII bit pattern for the 
letter U is 01010101, resulting in an 
almost symmetrical square wave at pin 6 
of the ACIA. Any pulses or levels which 
do not match Table 1 indicate a problem. 

5. The 680b may never output the 
letter or prompt character if the 6800 
microprocessor sees a transmit data 
register full indication by the ACIA 
status register. The MPU may be 
continuously looping, waiting for the 
ACIA to indicate that it is ready to 
transmit. The program in Table 3 
deposits the status in location 0020 since 
it cannot be checked when the 680b isn't 
running. 

Run the program for a moment, then 
stop the 680b and examine location 0020. 
Data bit 1 should be high, indicating a 
ready to transmit condition, and data bit 
should be low if no data has been sent to 
the 680b. Data bits 2 and 3 should be low. 
If incorrect, check to see if ACIA pins 23 
and 24 are low (which they should be). If 
bit 1 is low, the ACIA was not reset 
properly. Check the data lines from the 
6800 to the ACIA for shorts or opens 
(especially DO and Dl). Recheck the 
signals to the ACIA. Highs in bits 4, 5 and 
6 indicate transmission errors. 

6. If the ACIA will output but not 
input, run the program in Table 3 and 
check the status. If the 680b keeps 
printing periods for proper letters typed 
to it (like M, N or J), then the ASCII 
codes for these letters are probably 
distorted. The program in Table 4 can 
help isolate this problem. 

While running the program, type one 
character on the terminal. Stop the 680b 
and examine location 0020. Compare the 
bit pattern on the data lights to the ASCII 
code for that character. If they do not 
match, look for shorts on the data lines. 
Pin 2 of the ACIA should go low when the 
character is typed, otherwise check 1/0 
wiring. If pin 2 of the ACIA is always low, 
the ACIA will think it is always receiving 
a character. If a Teletype™ is used as 
the 1/0 terminal, it will run open. Pin 2 
could be low permanently due to shorts, 
improper placement of components 
(check R204 if TTY is used), bad 1/0 



components or if the ACIA is not reset 
with software. 

7. Users with 680b-BSM cards who 
are trying to check the write waveforms 
can use any program that continuously 
writes into memory. The program is 
usually put in the working IK RAM. 
Table 5 contains a program that will 
write whatever is in location 0001 into an 
address of the 680b-BSM card. 

For further repair problems, contact 
the MITS Repair Department. AN 
INTRODUCTION TO MICRO- 
COMPUTERS by Osborne and 
Associates and M6800 MICROCOM- 
PUTER SYSTEM DESIGN DATA by 
Motorola are also excellent references on 
the operation of the 6800 and its family of 
chips. 



Op Ced« Commwils 



C/N Juno, 197 7 



It's a jungle out there, 

crawling with publications that 

deal with every aspect of 

home and business computing - 

from spacey games to inventory, 

accounting and process control. 

There's a lot you need to know 

to find your way around. 



computer 
notes™ 



COMPUTER NOTES offers a 

monthly survival kit of easy- 

to-understand features on 

computer hardware, software 

and unique applications. 

CN is published by MITS, 

Inc., the Altair™ people. 

Each issue is a combination 

of articles written by 

knowledgeable free-lancers and 

experienced MITS engineers, 

designers and software 

specialists. 

Whether you're currently 

a microcomputer "expert" or 

just taking those first scary 

steps into the jungle, be sure to 

take COMPUTER NOTES 

with you. 

You may need it. 
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□ I have moved. 
Please note my 
new address. 
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address on coupon. 
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Have you written Software 
for your 



Altair 
Computer ? 



The Altair 8800 computer was the first micro 
produced for the general public and remains number 
one in sales, with more than 8,000 mainframes in 
the field. The wide acceptance of the Altair computer 
and its rapid adaptation to many diversified appli- 
cations has truly turned the dream of the affordable 
computer into a reality. 

Yet the machine itself, remarkable as it is, repre- 
sents only the beginning. The right Software, 
tailored to meet a user's specific requirements, is 
a vital part of any computer system. MITS wants 
to insure that Altair users everywhere have the 
best applications software available today and in 
the future. For this reason, a new MITS subsidiary, 
the ALTAIR SOFTWARE DISTRIBUTION COMPANY, 
has been formed. Its purpose: to acquire the highest 
quality software possible and distribute it nationally 
through Altair Computer Centers. 

That's where you come in. The ASDC will pay 
substantial royalties to the originators of all soft- 
ware accepted into the ASDC library. If you have 
written business, industrial or commercial use 
software for the Altair 8800, ASDC wants to hear 
from you. It is the aim of the ASDC to stimulate 
and reward creativity in producing useful software 
that makes those dreams of "computers for everyone" 
come true. The ASDC will select only software that 
measures up to its high standards for system 
design, coding and documentation. The software 
will then be further documented and distrib- 
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information 

submit software to 
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ALTAIR SOFTWARE DISTRIBUTION COMPANY 
3330 Peachtree Road. Suite 343 Atlanta, Georgia 30326 404-231-2308 
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